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MAIN ROTOR FREE WAKE GEOMETRY EFFECTS ON 


BLADE AIR LOADS AND RESPONSE FOR 
HELICOPTERS IN STEADY MANEUVERS 
VOLUME II - PROGRAM LISTINGS* 

By S. Gene Sadler 

Rochester Applied Science Associates, Inc. 


SUMMARY 


Computer program listings are presented for two separate pro- 
grams, the wake geometry and the blade loads and response programs. 
These programs compute blade loads and response for single rotor 
helicopters in steady maneuver flight conditions. The listings in 
this volume correspond to the calculations discussed in VOLUME I. 


INTRODUCTION 


Vortex-blade interactions are an important source of high fre- 
quency, high amplitude aerodynamic loading of helicopter rotors. 
Increasingly more complete models of both the aerodynamics and 
elastomechanics of the helicopter rotor system are being developed. 
The programs listed here include the effects of free wake distor- 
tions, blade flexibilities, nonlinear aerodynamics, and uses an 
iterative solution technique to obtain compatible blade loads and 
response . 

Four steps are necessary in obtaining blade loads and response 
results including the effects of free wake distortions by using the 
programs listed in this report: 

1. Preliminary calculations (or measured data) are used to 
define rotor system performance parameters and flight conditions. 
Definitions of model parameters and program control variables are 
necessary for program operation. 

2. A wake geometry calculation is made to obtain wake-induced 
velocity influence coefficients and initial estimates of bound cir- 
culations for use in the blade loads calculation. Wake geometry 
data is also printed during this calculation. (If uniform inflow 
approximations are desired, this step may be omitted, and the blade 


*VOLUME I - THEORETICAL FORMULATION AND ANALYSIS OF RESULTS is 
contained in NASA CR-2110. 



loads and response calculations per formed without the effects of a 
freely distorting wake. ) 

3. Blade natural frequencies and normal modes are computed for 
use in calculating blade response^ The normal modes may be coupled 
or uncoupled, but must be orthogonal and must have a generalized 
mass of unity. At least one normal mode is required for program 
operation. (Steps 2 and 3 are independent, and their order unimpor- 
tant . ) 


4 . Given the wake program input for use in blade loads calcu- 
lations and the natural frequency and normal mode shape input for 
use in blade response calculations, the blade loads and response 
calculations are then performed by the blade loads and response pro- 
gram. Output of this program includes the wake-induced velocities, 
angles of attack, aerodynamic loads, and blade lineal and angular 
motions, moments and shears as computed from the appropriate normal 
mode quantities and generalized coordinate magnitudes. 

Program input and output is in English units. 
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OVERLAY! WKOVL, 0,0 J 

PROGRAM GEOW { INPUT, OUTPUT , BD SI G ,BDGAM,WKGEO» T APE5= INPUT, TAPE6=0UT 
1PUT»TAPE4=BDSIG,TAPE8-=BDGAM,TAPE10=WKGE0) 

PROGRAM WAKE GEOMETRY 

DIMENSION TM ( 9) » T V( 3 ) 

C 

COMMON /MUVXYZ/ TM , TV ,f)EL , VDT ,RC ,CAPPHI , AO, AZ,YR, ZR,RP, IVAR 
COMMON /STPSZ/ NR AT 10 ,N AA , LRGWK S, L I ML SS, L SWW 
C 

call geom 

CALL WK 1 
C 

STOP 

ENO 
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SUBROUTINE GFOM 
C 

INTEGER OlJT t W«PT » CNTR 
INTEGER T45,WW 

RFAL MXYZ,MUtMUALT*MUSpK,MUCAT»MUSAT,MUDP »MUSDP *LLNTH , LNTH, LOADN* 
lLTMP,tSQ*MX,MY,MZ*MUCDP,MUS DS tMUCDS* ID, MB, LX ,K XX 
C 

DIMENSION A (05* 44) 

DIMENSION ALFA1 (Oil 
DIMENSION ALFA 21 0 1) 

DIMENSION ALFAStOl) 

DIMENSION ALF AT <01 ) 

DIMENSION A0C01) 

DIMENSION ALPHAO(Ol) 

DIMENSION ALPHARIOn 
DIMENSION AR (01 ) 

DIMENSION ATMP(ll) 

DIMENSION 81005,401 
DIMENSION SET A{ 03 * I ) 

DIMENSION BTMPfll) 

DIMENSION €109 I 
DIMENSION CCLAfOU 
DIMENSION CHORD (01 t 
DIMENSION DEL TA 1 01 1 
DIMENSION DI(90i 
DIMENSION DIR ( 1 1 
DIMENSION DNTHC01 1*040) 

DIMENSION DSQ (040 1 
DIMENSION DTMPI04O) 

DIMENSION GAMMA(05» 040) 

DIMENSION GA.MMAG ( 360 ) 

DIMENSION GAMMK( 1*040) 

DIMENSION INDXG (40 I 
DIMENSION 10(01) 

DIMENSION KXX(0LI 
DIMENSION LNTH(05,44) 

DIMENSION L0ADNIC44) 

DIMENSION LSQC044) 

DIMENSION LTMP( 044 ) 

DIMENSION LX(OI) 

DIMENSION MB (01 ) 

DIMENSION MUCDS(l) 

DIMENSION MUSDS ( 1 ) 

DIMENSION NPSI(l) 

DIMENSION NPTS( 60) 

DIMENSION PS I ( 1 ) 

DIMENSION P SIR (01) 

DIMENSION R 1 1-1 1 
DIMENSION REAR (040) 

DIMENSION RC AP ( 01 * 1 1 ) 
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DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
0 I MENS ION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 


RMOO( 11 ) 

R SMLL <01, 44 ) 
RZFRO( ] ) 

SGMAK 044,044 ) 
SGMA?(0 5,44) 
SIGBK3.60I 
SIGMZ ( in) 

T ( 3 , 3 ) 

TC0RI03 ,03) 
THTAX1 01) 
THTAY(Ol) 

TM I 9 ) , T V< 3 ) 

VI (01,01) 

VX (05 ,44) 
VLU4D) 

VY( 05,44) 

VZ (05,44) 
VX.X<01,01) 

WK X ( 0 1 , 01 ) 

WKY (01 ,01 ) 

WKZ (01, 01 ) 

X (05 » 44 ) 
XROT(Oi) 

XX(01 ) 

Y( 05,44) 

YROT( 01 ) 

Z (05,44 ) 

ZAP (40) 

ZROT (01 ) 

ZSTOR (800 ) 


COMMON /AL1BDA/ ARK 
COMMON /APXLDB/ LOADN 

C OMMON /BETA1 /BETA, MBETR, NBETC ,P I ,D , U , F , AS , AL PHA1 , ALPHA2, RQ 

COMMON / BETA3 /OM, OMSQ » AO » AR , V ,RHO ,MU 

COMMON /CONT/ N A, NR , N ANR » JA » J J, NN »N * S.IGN , I I , NG JR 

COMMON /CONVGA/ EPSG,NWKRQ 

COMMON /CONVGB/ S GM A1 , INDXG 

COMMON /CONVGC/ GAMMA G 

COMMON /DART1/ SGRATO 

COMMON /ELNTHS/ ELI (16) 

COMMON /I TRG/ ITRGX 

COMMON / MODCNT / N TVM , NWSTR E ,NWR , NANRM, Nl SR VM , N I BM 
COMMON /M0DWK1/ GAMMAM( 54 ,16) ,RM(1 ) , AM(05, 16 ) ,VXM( 54,16), 

1 V YM ( 54,16) , VZM( 54 ,16) ,XM( 54,16) ,YM( 54,16) ,ZM(54,16> 

COMMON /M0DWK3/ AFM( 4 , 1 1 ) , B FM ( 4, 10) 

COMMON /MUVXY7/ TM,T V ,DEL , V DT , RC , CAP PHI , AQ, AZ , YR, ZR , R P , I V AR 
COMMON /OIJTD I / NNTV,NEXPWK , NS IGR W »NMQDR» NMOOC 
COMMON /OUTDI I / NWKCLM 
COMMON /OUT IN/ IN, OUT 
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COMMON /STEPXA/ W KPT, WW , IOUT, NOTTPl ,.K AT , NBC 
COMMON /SUBIB/ KX ,LSQ , OSQ ,D TMP » L TMP , ATMP , BTMP 
COMMON /SUBIC/ R,C,DTWOPI 
COMMON /SUBIQ/ I , IP1, IM1 
COMMON /SUB IE/ NAS 

COMMON / S TPS Z/ NR AT 10 ,NAA, L RGW.KS ,LI MLSS , LSWW 

COMMON /TEST33/ NIB ,NROT, NW ,NBRV1 ,X , Y , Z, A, B, DNTH, LNTH ,N AR, NP ER , 
1JSIGT,NWMK, J,NWM1,NIBV,VX,VY, VZ, NI8RV 
COMMON /TEST55 / JL , JS IG , NTV , NTV1 ,M, OPS I , CHORD, RSMLU RCAP, GAMMA, Q$Z 
COMMON /VLIMIT/ VLIMI 111 , VMLI M( 161 
COMMON /VLNTHS/ NALIM,VLL 

COMMON / WAKE1/ VOOMR , NUWKPT ,V I , WKX * WKY ,WKZ »C0SB3 , S INB 3 ,NAS 1 , 

IN I BNA ♦ NWKL ST , NW KR W* NWKCL , NL PI »NLP2 , NLP3 , NLP4 ,TWOPI 
COMMON /WKCONT/ NWKPD 
COMMON /WKQ/ NUMXYZ 

COMMON /WK1A/ P SI R , DP SI K, P S IK , DELTA . RREF , MUCO S,MUSD S, TH TA X, THT AY 
COMMON / WK 1 B / X RQ t , YR OT , Z ROT , TCOR , AL F AT , A L F A I , AL F A 2 
COMMON /WK IC / PSI,CCLA,OIR 

COMMON /WK2A/ MSET, GAMMKt IN DX , J AC , I NOXL , SGMAZ, SIGMZ,SGMBL 

COMMON /WK2B/ X A , YA , Z A, XB , Y 8, ZB, XC, Y C , ZC 

COMMON / W K ?C / SIGBL 

COMMON /WK2GAM/ GAMFAC 

COMMON /WK4A/ VXX 

COMMON / ZCNTRL / NZS 

COMMON /ZSS/ ZSTOR 

DATA BLANK/IH / 

DATA NWKX , NWKY , NWK Z /3 HWKX ,3HWKY,3HWKZ/ 

30 FORMAT {4H0AFM/ ) 

31 FORMATI4HOBFM/) 

32 FORMAT! 33H0VL I M( NTV ) , VMLIM( NT VM*N I B ) , GAMFAC/ ) 

33 FORMAT ( 12H0NAL IM Ft I M/ 2X , I 3, G 16 . 7) 

34 F ORMAT 1 1 2.HCVLL (NIBRVMI/1 

35 FORMAT (23HCNUMBER OF SMALL STEPS ,15, 24H START SMALL STEPS AT , 
1 15) 

907 F0RMAT(16X,3F8.B) 

906 FORMAT (29X,I5) 

16 FORMAT (20A4) 

901 FORMAT ( 19X,?X t 7X»E11.8) 

9875 FORMAT (1X,8G16.7) 

8882 FORMAT ( 1H1 ,47X , 3 7HFRFE ROTOR WAKE GEOMETRY CALCULATIONS/// 

1 1 H ,26X,20A4/ 

2 1 H , 2 6 X , 20 A4 / 

3 1H ,?6X,20A4// 

41 H ,58X, 16HBLA0E PROPERTIES// 

51 H ,9X,F8,3,30H ADVANCE. RATIO, DIMENSIONLESS, 

630X ,F 8« 5 , 27H MAXIMUM CONVERGENCE ERROR/ 

71 H , 9 X , F 8 . 3, 31H AIR MASS DENSITY, LB-SEC2/FT4, 

8 ?9 X ,F8 • 3, 30H REFERENCE ROTOR LENGTH, FEET/ 
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2 1 H , 9X » F8 . 3 » 25H BLADE ROOT RADIUS, FEET, 

1 35X , F 8 . 3 , 35H ROTATIONAL RATE OF ROTOR, RAD/SEC/ 

61 H » 9X, F 8 • 3, 26H FORWARD VELOCITY, FT/SEC, 

5 34X, F8 . 3, 30H SLOPE OF L IFT CURVE, 1/RAD2/ 

91H ,77X,F8.3,42H VORTEX CORE RADIUS FACTOR, DIMENSIONLESS//) 

8883 FORMAT ( 1 H // 

11H ,38HAMPLI TUDE OF LATERAL CYCLIC PITCH, RAD, 12X, 1 ( F9.4, 5X ) / 

21H ,42HL ATER AL SHAFT TILT ANGLE, POS TO PORT, RAD, 8X, l ( F9 .4, 5X )/ 
31H ,43HAMPL ITUDE OF LONGITUDINAL CYCLIC PITCH, RAD, 7X, It F9. 4, 5X ) / 
41 H ,39HL0NG FIRST HARMONIC FLAPPING ANGLE, RAD, I IX , I ( F9 .4, 5X ) / 
71H , 23H8LADF CONING ANGLE, RAD , 27X , 1 ( F9 . 4, 5X ) / 

6IH , 42HL0NG SHAFT TILT ANGLE, POS AFT FR VRT , RAO, 8X, 1 1 F9. 4, 5X) ) 
8889 FORMAT ( 

11H , 34HBLA0E INBOARD AIRFOIL RADIUS, FEET, 16 X, It F9. 4, 5X ) / 

2 1H , 41H0F FSET OF HINGE FM C NT R OF ROTATION, FEET, 9X, II F9.4, 5X1/ 
91H , 43HD I R ECT ION OF ROTOR, PO S I S COUNTERCLOCKWI SE , 7X, 1 ( F9 .4,5X )/ 
41 H »26HROTOR REFERENCE ANGLE, RAD, 24X , It F9. 4, 5X ) / 

51H , 2 2HBL ADE TWIST ANGLE, RAD, 28X, It F9 .4, 5X )/ 

71H , 20HC HORD, DIMENSIONLESS, 30X, 1 ( F9 . 4, 5X ) / 

81H , 2 9HSHA FT TILT f POSITIVE AFT, RAD, 2 IX, It F9. 4, 5X ) ) 

8887 FORMAT < 

1 1 H , 42HEX TR Ap OL AT FD ANGLE OF ATTACK AT SHAFT, RAD, 8X, 1 ( F9. 4 , 5 X ) / 
2 1 H ,29HX- AX I S ROTOR COORDINATE, FEET, 2 IX , It F9 . 4, 5X ) / 

41H , 29HY- A X I S ROTOR COORDINATE, FEET, 2 IX , I ( F9 . 4, 5 X ) / 

8 1H , 42HL A T FR AL FIRST HARMONIC FLAPPING ANGLE, RAD, 8X, It F9. 4, 5X) / 
6 IH ,29HZ-AXIS ROTOR COORDINATE, FEET ,2 IX , It F9 . 4, 5X ) //// ) 

8884 FORMATt 

1 1 H ,34HC00RDINATE TRANSFORMATION MATRICES , 69X , 

225HPROGR AM CONTROL CONSTANTS// 

31H ,1 2X» 9HR0T0R ONE/ 

41 H , 99X , I 3 , l 7H AZIMUTHAL STEPS/ 

5 1 H , F 7 » 3 , 2 ( 6X , F 7 , 3 ) / 

61 H , F 7 , 3 , 2 ( 6 X , F 7 . 3 ) , 6 6X , I 3 , 1 8 H BLADES PER ROTOR/ 

71 H , F 7 • 3, 2< 6X,F7.3) / 

8 1 H , 99X, 13, 24H INPUT CONTROL CONSTANT/ 

91 H , 1 2X , 9HR0T0R TWO/ 

11 H , 99X, I 3, ?2H REV OF WAKE RETAINED/ 

21H , F 7 , 3 , 2 ( 6 X , F 7 , 3 ) / 

31H ,F 7, 3 , 2( 6X , F7, 3) , 66X , I 3 , 8H ROTORS/ 

41H , F 7 • 3 , .2 ( 6 X , F 7 . '3 ) / 

51H , 99X, I 3 ,24H TRA ILED VOR TI CE S / 8LA DE// ) 

8885 FORMATt 1H , 5HRCAPS// 

1 1 H , 1 OHROTOR ONE , 1 X , 9 { IX , F7.4, 1 H ),1X,F7.4) 

8886 FORMATt 1H ,1 OHROTOR TWO , 1 X ,9 ( 1 X , FT , 4 , 1H ),1X,F7.4//1 


I N= 5 
0UT=6 
I OUT=7 
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I N T P 1 = 4 
NOTTP 1=3 
INTP?=4 
NOTTP2=4 


DO 2 1=1,90 
2 OH I ) -BLANK 

DFL=0 . 
VDT=0. 


READ INPUT. 

READ (5,16) NPTS 

READ (I N , 9 06 ) NBC , N WK P Q , W W , NU W Kp T ,N T V M , N A NRM , N A , N I B , NT V , N R EV , N R OT 
READ UN, 906) NAA,t $WW 
READ (IN, 906) WKPT, ITPGX 
READ ( IN, 906) NAl.IM 
READ (IN, 906) NUMXYZ 
READ ( IN, 901 ) SGPATO 
READ (IN, 901) VOOMR ,ABK ,0M, V, RHQ 
NTVl=NTV-l 

N I RRVM=NTVM*NI B^NROT 

READ (IN, 901) ( ALF A1 ( I ) » ALFA 2 ( I), CHORD.! I) , AL F AS ( I ) , DELTA ( I ) , 

1 THT AY ( I ) ,THTAX( I) ,PS IR( I) ,RZERQ( I ), D IR ( I ) , I=1,NR0T) 

READ ( I N , 9 0 1 ) ( ( RC AP ( I , J ) » J = 1 , NT V ) , I =1 , NROT ) , RRFF , CL A, EPSG 
READ (IN, 901) ( XROT { I ) , YROT ( I ) , Z ROT ( I ) » I = 1 ,NROT ) 

NTV MP2= NT V*NROT 

READ( IN, 901 ) ( ( A FM.( I , j ) , J=1 ,NTVMP2) , I = 1,NTVM) 

READ ( IN, 90 1 ) ( ( R FM ( I , J ) , J = 1 , NT V 1 ) » I = 1 , N T V M ) 

READ (IN, 901) ( VL IM( I ) , 1 = 1 , NT V ) , ( VML I M ( I ), 1=1 , N I BRVM ) 

READ ( 5,901 ) GAMFAC 
READ ( IN, 901 ) EL IN 
C 

Z N A=N A 

S INAL S=S IN { At. FAS ( 1) ) 

COSALS=COSt ALF AS ( 1 ) ) 

CALL MANEUyl V,OM,ZNA, RREF , S INALS, CO SALS) 

C 

IF ( NUMXYZ. GT.O) READ (IN, 901 ) ( ZSTORI I ) , 1=1 , NUMXYZ ) 

C 

C ITRGX = UPPER LIMIT ON NUMBER OF ITERATIONS FOR GAMMAS 

C ABR = VORTEX CORE RADIUS CONSTANT 

C SUBSCR I PTt M ) = INCREMENTED NUMBER OF ROTORS 

C 

C DEFINE CONSTANTS. 

C 
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I NO XL = 0 
° 1= 3 • l A 1 5 93 
K AT=0 

TW0PI=2.*PI 
DTWOP 1=1 ./TWOPI 
SGPATO=DTWOPI /SGRATO 
DPS 1 = TWOP I /NA 
0PSIK= TWOPI/ NIB 
0M$Q=0M*0M 
MU=V/IQM*RREF 1 
MU0P=Mu*0PSI 

read angles in radians or convert degrees to radians before 

NEXT STEP 

CY=COS(THTAY< 1 ) ) 

S Y=SI N ( THT AY( 1 ) .) 

C X = CO SI THT AX I 11 1 
SX= S I N { THT AX ( 1 1 ) 


COMPUTE COORDINATE TRANSFORMATION MATRIX FOR USE IN LOCATION 
OF MTH ROTOR. 


TCOR( I * 1 1 =CY 
TCORI 2, 1 ) = SY*SX 
TCOR I 3 » 1 ) =-SY*CX 
TCORI 1,21=0. 

TCOR (2,2 l-CX 
TCORI 3,2) =SX 
T COR ( 1,3) =SY 
TCORI 2, 3 > =-SX #CY 
TCORI 3,3) =CY*CX 

COMPUTE TIP PATH ANGLE FROM APPROXIMATE EQUATIONS OF MOTION OF 
RIGID, SPRING-HINGED BLADE.' 


MBETR=3 

DO 15 M= 1 * NROT 
RO=RZ ERO I M ) 

CHORDIM) = CHORD I M ) /R REF 
PSI (M)=0. 

ALPHA 1=AL F A1 (M ) 
ALPHA2=ALFA2I M) 

A S= AL FAS1 M ) 

F=CHORDI M ) 

D=DELTACM) 

NBETC=M 
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NCALB=0 

IF (NCALB.EQ.l) CALL BETAS 
IF (NCALB.FO.O) 

1READ 15,901) BET A ( 1 f M ) » BE T A (2 *M ) , BE T A( 3 , M ) , AO CM ) , AR ( M ) 

ALP AT ( M ) = AL F AS ( M ) -8 ET A( 3 , M ) 

MUSDS(M)=MunP*SINIALFAS«M) ) 

MUC0S(M)=MU0P*C0SCALFAS(M) ) 

15 CCLA(M)=.5*CH0RD(M)*CLA 
SINB3=SI N (BETA! 3,1) ) 

C0SB3=C0S( BETA! 3,1) ) 

PRINT OUT INPUT AND CONTROL CONSTANTS 

WRITE I0UT,8882)NPTS,MJ,EPSG» PHO , RREF , RO , ON, V , CLA, ABK 
C 

WRITE (OUT, 8883) ( Al.FAl ( I ) , I=1,NR0T) , ( THTAY ( I) ,1=1 ,NROT ) , 

1 1 A L F A 2 ( I ) , 1= 1 , NRO T ) , ( BET A { 3, I ) , I = 1, NROT ) , 

2 I BETA! 1,1), 1 = 1 tNROT ) * ( THTAX ( I ) , I* 1 , NROT ) 

WR ITE< OUT, 8889) (R ZERO (I ), 1=1, NROT), (DELTA! I ) , 1 = 1, NROT) , 

1 ( DIP ( I ), 1 = 1, NROT ), ( PS I R ( I ) , 1=1 , NROT ) , 

2 ( ARID, 1 = 1, NROT), 

1 ( CHOROd ), 1=1, NROT), ( ALFA S I I ) , 1= 1 , NROT) 

WRI TE (OUT , 8887) ( AO (I ), 1=1, NROT) , ( XROTII), 1=1, NROT ), 

1 < YRO T { I ) ,1=1 , NROT ) , 

2 { B FT A ( 2, I) ,1 = 1 , NROT) , (ZROT(I) ,1 = 1, NROT) 

WRITE (OUT ,88 90) TM, TV ,DEL , VDT , RC , CAP PH I , AQ , AZ , YR , ZR , RP, I VAR 

1 , N8C,NWKR0,WW, NUWKPT , NT VN , N ANPN, NUMX Y Z , SGR AT 0 , VOOMR 
8890 F0RMAT(/1X, 19 HMANFUVER PARAMETERS , // 6X , AHT M =, 

19( F 10. 7) / 6 X , AH TV =,3F10.7,/ 5X,5H0FL =,F10.7/ 5X,5HVDT =,F1 

20.7/ 6X.AHRC =,F1C.7/ ?X, 8HCAPPHI =,F10.7/ 6X,4HAQ =,F10.7/ 6X,4HA 
37 =,F10. 7/ 6X,4HYR =,F10.7/ 6X,4HZR =, F10.7/ 6X,4HRP =,F10.7/ 4X, 
46HIVAR =, 15// 

5 5X , 1 5HPR0GP AM CONTROL/ 

6 5X , 5HNRC =,15/ 3X,7HNWKRQ =,15/ 6X,4HWW = , 1 5/2X »8hNUWKPT =J5/4X,6 
7HNTVM =,15/ 3 X, 7HNANRM =,15/ 2 X, 8HNIJMXYZ =,15/ 2x,8HSGRATO =,F10.7 
8/ 3X, 7HV00MR =,F10.7/) 

WR I TE I OUT , 8884 ) NA , TCOR( 1 , 1) ,TCOR( 1 , 2 > , TCORI 1,3) ,TCOR( 2 , 1 ) , 

1 TCOR ( 2 , 2 ) ,TCOR ( 2 , 3 ) , NT B , TC OR ( 3 , 1) , T COR ( 3 , 2 ) , TCOR ( 3 , 3 ) , WK PT , 

2 NREV,T( 1 ,1 ) ,T( 1, 2) ,T (1 ,3) ,T( 2,1 ) ,T (2,2) , T ( 2 , 3 ) , NROT , T ( 3, 1 ) , 

3 T(3,2),T( 3, 3), MTV 

WRITE (OUT, 8885) ( R CAP ( 1 , IX ) , IX = 1 ,NT V ) 

IF (NR0T.FQ.2) 

1WRITF (OUT, 8886) ( R C AP ( 2 , I X ) , IX= 1 ,N TV ) 

WRITE (6,30) 

WRITE (OUT, 9875) ( ( A F M ( I ,J) , J= 1 ,NTVMP2 ) ,1=1 , NT VM) 

WRITE(6,31 ) 

WRITE (OUT, 9875 )< ( BF M ( I , J ) , J= 1 ,NTV1 ) ,I=1,NTVM) 

WRITE! 6, 32) 

W R I T F (OUT, 9875) ( VL I M( I ) , I =1 , NTV ) , ( VML I M { .1 ) ,I=1,NTBRVM), GAME AC 
WP I TE t OUT , 33 ) NAL I M , EL TM 
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WRITE (OIJT, 35) NA A , LS WW 

IF (NUMXYZ .GT.O) WRITE (OUT t 9875) I Z STqR ( I) » I =1 » NUMXYZ ) 


01 MENS I ONALI Z ATI ON FACTORS 
LOAD RH0*0M*0M*R**3 

R 1 1=RREF*RRFF#R REF 
DFLOD=RHO*OMSQ *R11, 

CONSTANTS USED TO CONTROL PROGRAM. 


NJ=NIB*NROT*NTV 
N AR=N A*NRE V 
NGJ=NIB*NTV1 
NGJR=NGJ*NRGT 
NIBV=NI8*NTV 
N I BR V- N I B y *NRO T 
N IBM=NIB*NTVM 
N BRV l=N I BR V+l 
NAS=? 

NLP1=NR0T 
NLP2=NIB 
NLP3=NTV 
NWKPD=Q 
N PER- 1 

NR=NTV1*NR0T 
N ANR=NA#NR 
N I BNA=NA/ NIB 
N WSTR F = ? 

NWR=NA*NRE V 
LRGWKS=1. 

NRATI O-NAA/NA 

CONSTANTS USED TO CONTROL ARRAY SIZES 

NNTV=44 
NEX PWK=5 
N S I GR W=44 
NWKRW-I1 
NWKCL M=44 
N MO DR =54 
NMODC= 14 
NNROT =1 
N N T VM = 1 1 
NTVMX=4 


COMPUTE LENGTHS FOR USE IN MODIFIED WAKF 
DO 3 1 = 1 * NTVM 
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DO "5 J=1 ,NIRRVM 
KM{ I, J)=0. 

YM(IiJ|=0. 

3 ZM(I,J?=0. 

Nl = Nl B*NTVM 
KK=0 

DO 10 M= 1 1 NROT 

CALL MOD R M ( N T V t N TVM , RC AP , R MO D , A F M, N NR OT , NNT V M , N TV MX » M , NWK R W ) 
00 S JJ=1,NTVM 
KK=KK+1 

ELL<KK) = RMOO(JJ 1*0P51 /RREF 
5 VLL(KK)=ELIM*ELL(KK> 

N 3= ( M— 1 ) *N 1 
N?=N1+N3 
N3=NTVM+1+N3 
00 10 JJ=N3,N2 
KK = KK +1 

ELL(KK)=ELUKK-NTVM) 

10 VLL(KK)=ELIM*FLL(KK) 

WRITE (6, 34) 

WRITE (OUT ,0875 ) ( VLL { I) , I * 1 , NT SRVM ) 

INJIT FOR WAKF CALCULATIONS 

IF INWKRQ.EG.O) GO TO 20 
NWKCL=1 
NWKLST=0 

DO 13 1=1 »NUWKPT 
NWKLST=NWKLST+1 
IF (NWKLST. LE.NWKRW) GO TO 13 
NWKLST=1 
NWKCL=NWKCL+1 

13 READ (IN * 907 ) WKX (NWKLST, NWKCL) , WKY( NWKLST , NW KCL) , WKZ ( NWKLST t 
1NWKCL) 

IF (NWKCL. EG. 1) NWKRW=NWKLST 

IF (NWKLST. EQ.NWKRW. OR. NWKCL. EQ. 1) GO TO 200 
NXX=NWKL ST + 1 
DO 22 I=NXX,NWKRW 
WKX ( I » NWKCL )=0 . 

WKY( I .NWKCL) =0. 

22 WK7,( I f NWKCU -0. 

C ALL MPRECT ( N WKX f WKX ,NWKRW , NWKCL ,NE XPWK , N WKCLM ) 

CALL MPRECT < NWKY ,WKY ,NWKRW, NWKCL tNFXPWK, NWKCLM ) 

CALL MPRECT ( NWK Z ,WK7. ,N WKP W ,N WKCL ,NE XPWK , NWKC LM ) 

200 DO 18 1 = 1 1 NWKR W 
DO 18 J=l, NWKCL 
VXXl I, J )=0. 

18 yi(i,j)=o. 

c 

C PERFORM A STEP 
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20 N A S 1 - 0 
NW=1 
11 = 1 
WKPT=3 
RETURN 
END 



SUBROUTINE WKl 
INTEGER OUT ,WKPT, CNTR 
INTEGER T45.WW 

REAL MXYZ,MU, MU AL T, MUSPK, MU CAT ,MUSAT , MUO P , MUSOP ,LLNT H, LNTH, LOADN, 


LLTMP,LSQ,M 

IX, MY, MZ ,MUCDP,MUSOS ,MUCDS ,10, MB »LX , KXX 

DIMENSION 

A ( 05, 44 ) 

DIMENSION 

ALEAK 0 1 ) 

DIMENSION 

ALFAZ(Ol) 

DIMENSION 

ALE AS (Oil 

DIMENSION 

ALFAT(Ol) 

DIMENSION 

ALPH AO (0 1 ) 

DIMENSION 

ALPHAR ( 01 ) 

DIMENSION 

AO ( 0 1 ) 

DIMENSION 

AR(01 ) 

DIMENSION 

8(005,40) 

DIMENSION 

BET A ( 03 , 1 ) 

DIMENSION 

C ( 09) 

DIMENSION 

CCL A( 01 ) 

DIMENSION 

CHORD (01) 

DIMENSION 

DELTA ( 0 1 ) 

DIMENSION 

DIR (1 ) 

DIMENSION 

DNTH( 01 1 ,040) 

DIMENSION 

GAMMA (05,040) 

DIMENSION 

10(01 ) 

D I MENSI UN 

KXX (01. ) 

DIMENSION 

LNTH< 05,44) 

DIMENSION 

LX (01 ) 

DIMENSION 

MB( 01 ) 

DIMENSION 

MUCDSU ) 

dimension 

MU5DS U ) 

DIMENSION 

NPSKi) 

DIMENSION 

°sn i ) 

DIMENSION 

PSIRtOl ) 

DIMENSION 

R ( 11) 

DIMENSION 

RBAR (D40) 

DIMENSION 

RC API 01, 11) 

DIMENSION 

R SMLL ( 0 1 , 44 ) 

DIMENSION 

RZFRO ( 1 ) 

DIMENSION 

T( 03,05) 

DIMENSION 

TCOR (03,03') 

DIMENSION 

TH TAX (01) 

DIMENSION 

THTAY(Ol) 

0 I MENS I ON 

TR < 09 ) 

DIMENSION 

VI ( 01 ,01) 

DIMENSION 

VX ( A 5 , 44) 

0 1 MEN SION 

VY ( 05 f 44 ) 

DIMENSION 

VZ( 05,44) 

0 I MENS ION 

WK X ( 0 1 ,01 ) 

DIMENSION 

WKY ( C 1 ,01 ) 
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DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


WKZIOItCl > 
XI 05, 44) 
XROTIOl ) 
XXI01 ) 

Y(0 5,44) 
YROTIOl 1 
Z I 05 , 44 ) 
ZAP (40) 
ZROT ( 0 1 ) 
ZSTORI 800) 


COMMON /BETA3/0M, OMSQ ,AO» AR ,V ,RHO,MU 
COMMON /WKQ/ NUMXYZ 
COMMON / ZCNTRL/ NZ.S 

COMMON /TEST33/ NIB ,NROT,NW ,NBRV1 ,X,Y, Z» A, B, DNTH, LNTH ,NAR ,NP ER » 

1 J S I GT ,NWM K , J ,NW Ml t N I BV, VX , V Y, VZt N I BR V 
COMMON /TEST55/ JL, JS IG,NTV ,NTV1 ,M, DPS I * CHORD, RSMLL » RCAP » GAMMA » QSz 
COMMON /WAKE 1 / VOOMR , NiJWKPT ,V I , WKX , WKY , WKZ ,COS B3 ,S I NB3 » NASl , 

INI BNA , NWKLST , NWKRW, NWKCL, NLP1 ,NL P2, NLP3 t NLP4, TWOPI 

COMMON /CONT/ NA,NR ,NANR , JA »J J, NN,N , SIGN ,1 I * NG JR 
COMMON /BETA1/BET A, MR FTR, NB ETC, P I , D , U , F, AS, ALPHA 1, ALPHA 2, RO 
COMMON /WKlA/ P SI R ,DPSI K » PS IK »DELT A , RREF , MUCDS » MUSDS » THT AX » T HT AY 
COMMON /WK IB/ X RO T , YR OT , Z R 0 T , TCOR , AL F AT, ALF A1 , ALFA? 

COMMON /WK 1 C / PSI*CCLA, DIR 
COMMON /SUBIC/ R,CfOTWnPI 
COMMON / APXL DA/ R BAR 
COMMON /7SS/ ZSTOR 


98T6 FORMAT ( 1 HO, II 4/ ( 81 IX ,G 14 . 7 1 1 1 


COMPUTATIONS FOR REFERENCE ROTOR 


COMPUTE BLADE POINTS FOR 11=1, WAKE POINTS fqr 1 1=2, FOR EACH 
BLADE. 


OUT =6 
NZS=0 

21 11=11+1 
J=0 

DO ?8 K= 1 , NI B 
PSIK={K-1)*DPSIK 
WORK I = PS I ( 1 l + PSIK 
S I NPK=SI N ( WORKl 1 
COSPK=COS( W0RK1 1 

BK = BET A( 1 , 1 l + BFTAC 2 ,1 )'*S I NPK+BET A ( 3, 1)*C0SPK 
COSBK=COS { BK) 

S I NBK=S INI RK1 
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DO 28 1=1, NTV 
J = J+1 
N Z S=N Z S+ 1 

RSCRP=(RCAP( 1 , I )-DELTA( 1) ) /RREF 
RSMAL=DELTA( 1 )/ RREF +R SCRP*COS BK 
RSMLH1, J)=RSMAL 
X{ It, J)=R$MAL*cnSRK 
Y { 1 I , J) = RSMAL*S TNPK 
Z( I I , J 1 = R SCR P* S I N BK 

25 IF (NiJMXYZ .GT.O 1 7 ( II , J ) = Z S TO R ( N Z S ) 

IF (II.EQ.ll GO TO 28 

27 X I 2 , J 1 = X ( 2 , J ) +MUCOS I 1 1 
Z ( 2 , J ) = Z ( 2 , J 1 +MUS OS ( 1) 

IF ( NUMXY Z • GT .0 1 Z ( 2 , J) =ZST CR IN Z$ I 

28 CONTINUE 

COMMUTATION FOR ADDITIONAL ROTORS 

ANGLES MUST BE IN RADIANS,* EITHER READ RADIANS OR CONVERTED 

FROM DEGREES. T{ J , J) IS COORDINATE TRANSFORMATION MATRIX 
FOR MTH ROTOR. 

29 IF (NROT.LF.11 GO TO 50 

30 DO 39 M=2 , NROT 
CY=COS(THTAY(M) ) 

C X=CO S I TH T AX ( M ) ) 

S Y=S I N( THTAYI M ) ) 

SX=SI N (THT AX ( M ) ) 

Tl 1 » 1 1 =C Y 

TI2, X 1=0. 

T ( 3 , 1 ) =S Y 

T { 1,21 =SYY SX 

T ( 2 » 2 ) = C X 

T( 3,21=-SX*CY 

T ( 1,3)=-SY*CX 

T ( 2 ,3 ) =SX 

T ( 3, 3 1 =C Y*CX 

DO 39 K= 1 , Nl B 

PSIK=PSIR(M)+(K-1 1*DPSIK 

COSPK=COS(PSnM)+PSlK 1 

S INPK=S IN { PS I (M 1 + PSIK) 

BK=BETAI 1 , Ml + BET A ( 2 , Ml *S I NPK+ BET A{ 3 » M 1 *C05PK 
COSBK=COS( BK) 

S I NBK = S INI BK 1 
DO 39 1=1, NTV 
J=J + 1 
NZS=NZS+1 

RSCRP=(RCAP(M, n-DELTAIMl l/RREF 
RSMAL=DELTA(M 1 /RRFF+R SCRP*COSBK 
RSMLU2, J)=RSMAL 
C(1)=RSMAL*C0SPK 
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C(2)=RSMAL*SINPK 

C(3)=RSCRP*SINBK 


COMPUTE POSITION OF MTH ROTOR IN COORDINATE SYSTEM OF ROTOR 1 


TRm-XROT(M) 

TR( 2) -YROT(M) 

TRI3 )=ZROT(M) 

DO 32 L = 1 ,3 
DO 32 J J = 1 , 3 

3? TR1U-TR (L )+T(L, JJV*CIJJ) 

XI II, J)=0. 

Y( II, J) = 0. 

Z ( I ! » J ) =9 • 

COMPUTE BLADE POINTS FOR 11 = 1, WAKE POINTS FOR- M=2, FOR 
EACH BLADE. 

DO 34 L = 1 , 3 

X( 1 1 , J > = X < 1 1 , J ) +T COR (1*0 *TR( 'L ) 

Y { II » J 1 = Y ( II , J ) + T C 0 R ( 2 , L ) * T R ( L ) 

ZI II, J) = Z< II, J)+TC0R(3, L)*TRIL) 

IF INUMXYZ.GT.O) Z I 1 1 , J 1= Z S TORI N ZS ) 

34 CONTINUE 

IF (II.LE.I) GO TO 39 
33 XI 2 , J )=X ( 2 , J) +MUCDS ( M) 

Z < 2 , J 1 = Z ( 2 » J ) +MUSDS ( M ) 

IF INUMXYZ.GT.O) Z I 0 2 , J ) = Z S TORI N ZS ) 

39 CONTINUE 

DEFINE CIRPCUL AT IONS BY CALCULATION OR READ FROM CARDS, TAPE. 

50 J =0 

51 J J=0 

IF INUMXYZ.GT.O WRITE (6,9876) I Z I II , JH) , JH= 1 , NI BRV ) 

DO 60 M= 1 , NROT 
MUALT=MU*ALFAT I M) 

DO 60 K= 1 , N I B 

PS I K= ( K- 1 )*OPSIK+PS IR(M) + PS II M) 

SINPK=SIN( PSI K) 

COSPK=COS( PS IK) 

BK=BET A I 1 , M ) +BFT A 1 2, M ) *$T NPK+BET A 1 3 , M ) *CO$PK 
COSBK=COS( BK) 

ALFBR = A0{M)+ALFA1(M)*SINPK + ALFA2(M)*C0SPK 
MUSPK=MU*S!NPK 
DO 60 1=1, NTV1 
J J = JJ +1 

RSMAL = (OELTA(M) +( RCAPIM. I) -DELTA I M) ) *COS BK )/RR EF 
RB AR I J J ) =R SM AL+ . 5 *( RC AP I M , I +1 ) -R C AP < M , !)) *CQ S8K/RREF 
ALFBR=ALFBR-AR(M) *RBAR< JJ ) 
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GAMMA ( 1 1 , J J ) = CCL A ( M ) * { ALF BR ■*( R BAR I J J I +MUSPK*D IP ( MI I +MUALT I 
60 CONTINUE 

ENTER TYPICAL AZIMUTHAL STEP COMPUTATION 

70 IF II I.GT. 1) GO TO 72 

CALL OVERLAY I 5LWKOVL , 3 ,0 , 6 HR ECALL I 
CALL OVERLAY { 5LWKOVL ,0 ,6HRECALU 
CALL OVERLAY C 5L WKOVL *5 ♦ 0* 6 HR ECALL I 
CALL OVERLAY ( 5 LWKOVL ,6 ,0 , 6 HR EC ALL I 
CALL OVERLAY < 5LWKOVL *7 ,0 , 6HR EC ALL) 

CALL OVERLAY ( 5LWK0VL t 08, Ot 6 HReC ALL ) 

GO TO 21 

72 11=0 
NW=NW +1 

DO 73 M= UNROT 

73 PSnM) = PSI(M)+DPSI*OlP( M ) 

GO TO 21 

END 
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SUBROUTINE MATINV 
DIMENSION A(C4C,040) 

DIMENS ION B C 0 40 * l ) 

DIMENSION INDEX (40, 3) 

COMMON /BETA2/A »B ,N ,M ,OETER M 

EQUIVALENCE ( AMA X, T, SWAP) 

C INITIALIZATION 

10 DETERM=1. 

15 DO 20 J= 1 , N 
20 I NDE X ( J , 3 ) =0, 

30 DO 550 1=1, N 

C SEARCH FOR PIVOT ELEMENT 

40 AMAX=0. 

45 DO 105 J= 1 »N 

IF( INDEX! J, 3) -1)60, 10 5, 60 
60 DO 100 K = 1 , M 

IF ( INDEX (K,3 )-l ) 80,100,715 
gO IF (AMAX-ABS(A( J,K) ) ) 85,100, 100 
85 IRQW=J 
90 I COLUM=K 

AMAX=ABS( A ( J, K) ) 

100 CONTINUE 
105 CONTINUE 

INDEX! ICOLUM , 3 ) = I NO EX ! ICOLU M, 3 ) +1 
260 INDEX! I, 1 )= I ROW 
270 INDEX! 1,2) =ICOLUM' 

130 IF ( I ROW- ICOLUM) 140,310, 140 
140 D E TER M= -DETERM 
150 DO 200 L = 1 , N 
160 SWAP= A! I ROW , L ) 

170 A! IR0W,L)=A( ICOlUM, l ) 

200 A! ICOLUM, L)=SWAP 

IF (M) 310,310,210 

210 DO 250 L = 1 ,M 
220 SWAP=B{ IROW,L ) 

230 B( IROW»L) = B( I COLIJM, L ) 

250 B( ICOLUM, L)=SWAP 

C DIVIDE PIVOT ROW BY PIVOT ELEMENT 

310 PIV0T=A( ICOLUM, ICOLUM > 

DETER M=DE TERM^PIVOT 
330 A! ICOLUM, ICOLUM ) = 1 . 

340 DO 350 L=1,N 

350 A! ICOLUM, U=A! ICOLUM, U./PI VOT 
355 IF (M) 3 80, 38 0,36 A 
360 DO 370 L=1,M 

370 8! ICOLUM, U = B{ ICOLUM, L > /PI VOT 
C REDUCE NON -PI VOT ROWS 

380 00 550 L 1 = 1 , N 
390 IF (LI- ICOLUM) 400,550,400 
400 T=A(L1, ICOLUM) 
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420 A { L l » TCOLIJM ) =0 • 

430 DO 450 L =1 ,N 

450 A I L l» L ) = A ( L 1 » L ) - A ( I CC LUM , L ) *T 
455 IF (M) 550,550,46* 

460 DO 500 L=1,M 

500 B( LI, L )=B ( LI , L )-B ( I CPLuM, L I *T 
550 CONTINUE 
715 I D=2 
740 RETURN 
END 


20 



SUBROUTINE MPRFCT INI , R, L ,M, LIVMD ) 

REAL R ( LO « MO ) 

DIMENSION NIB, 36) 

L1=L-1 

IFIM.LT. 181 K=3 
IF(K.GT.Ll)GO TO I 2 
00 10 I = K » L 1 
DO 10 J=1,M 

10 NC I t J 1=1000. *RU , J) 

WRITE CIO ) C (Nil , J) f 1— K »L1 ) 

12 CONTINUE 
Jl-0 
42=0 
J S EC.” 0 

1 JI=J2+I 
42=41+15 

IFfJ2.LE.MIG0 TO 2 
J2-M 

2 JSEC=JSEC+1 

WR I TFf 6* 3 ) NI » J SEC 

3 FORMAT ( iHO.AAt 1 X » 6HM ATR I X , 8X , 7HSEC T TON , I 3) 
WRITE 16*4) ! I » T = J 1 ,J?) 

4 F0RMAT12X, 3HR0W, 16,1517/1 
DO 5 1=1, L 

5 WRITE (6, 6) I,(R( l,K) , K = J 1 » J2 ) 

6 FORMAT! I 4, 4X, I6F7.3) 

IF1J2.LT . M ) GO TO 1 

RETURN 

END 
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SUBROUTINE MANEUV (V , OM, ZN A , RR EF , S IN ALS,COSAL S ) 

C 

DIMENSION SDE L ( 9) ,ROEL( 3) ,SPhK9) ,RPHI (3 ) , CAA(9 ) , R ALPHA( 3 1 » 

I SW ( 9 ) ,R W ( 3 ) 

C 

COMMON /MUVXYZ / S CEL, PnEL ,DEL , VDT ,RC ,C AP PHI , AS , AR, Y R , ZR , RP, IVAR 
C 

EQUIVALENCE ( SDEL ( 1 I , SPHI M ) , CAA ( I ) , SW ( 1 1) , 

1 < RDEL ( 1 ) , RPHI ( 1 ) , RALPHA ( 1 ) , RW ( 1 ) ) , 

2 ( DEL, DELI t AA,WDT) 

C 

DATA G , P I / 3 2 » 2 , 3 . 1415 93/ 

C 

WRI TE (6, IDOO ) 

1000 F0RMAT(2X, I9HMA VE OVER INPUT DATA) 

TWPINA=?.*PI/ZNA 
OMRREF=OM*RREF 
R £ A0( 5,6) IVAR 

GOTO 110,20,30,40,40), IVAR 
STEADY TURNS 

10 READ (5,100) QELDOT,RC,F,AS 
WRITE(6, 1001 ) DELOOT, RC,F, A S 

1001 F0RMAT(2X, 15HTURN DEL DOT = ,G14.4,6H RC =,G14.4,5H F =,G14.4,6H 

1 AS = , G 14 .4 ) 

I FtRC.NE.O . ) DEI. 0OT=V/RC 
I F( DELOOT . NF .0, ) R C=V/DELDOT 
I F ( F . E Q . 0 . ) GO TO 11 
DELDOT=G*SQRT (F**2-I . )/V 
RC=V**2 /( G*SQ p T( F**2- 1. ) ) 

11 DEL=DELD0T*2.*PI/(ZNA*0M) 

C APPHI=ATAN<V**2/ <RC*G) ) 

RC = RC 7RREF 

CALL TURN ( RDEL , $ CEL , DEL , RC ,CAPPH I , A S ) 

GO TO 5 

STEADY ROLLS 

20 R F AD (5,100) AR , DEL , YR, ZR 
WRITE(6, 1002) AR ,DFL ,YR, ZR 

1002 FORMAT ( 2 X , 1 1HR0LL AR =,G14.4,7H DEL =,G14.4,6H YR =,G14.4,6H 

1 Z R = » G 1 4 • 4 ) 

DELT=DEL*2 »*P I / ( Z NA 4QM) 

VDT=V*( 2 • *P I / ( Z NA *0M ) ) 

YR=YR/RREF 
ZR=ZR/RRFF 
V0T=VDT /RREF 

CALL ROLL (RPHI, SPHI ,AR, DELT , YR , 7. R, VDT ) 

GO TO 5 
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symetrical pull-ups 

30 READ { 5 » 100) AA ,RP 
WRITE!6,1003) AA »RP 

1003 FORMAT ( 2X, 25HSYMM ETR ICA L PULL-UP AA = ,G14.4,6H RP =,614.4) 
AA=AA*2.4PI /{ ZNA40M) 

RP = RP /RR EE 

CALL SUMPUPIRALPH A,CAA,AA,RP) 

GO TO 5 

STEADY CLIMB OR STEADY FORWARD FLIGHT 

40 READ 15, 100) W 
WRITE <6 , 1004 ) W 

1004 FORMAT! 2X, iOHCLIMB W =,G14.4! 

VDT=( V*COSALS~W*S INALS) *TWP INA/QMRREF 
WDT=fV*SlNALS+W*COSALS)*TWPlUA/OMRREF 
CALL STYCLBIRW, SW,VDT,WDT) 

5 RETURN 

6 FORMAT ( 3 3 X , 1 1 1 
100 FORMAT ( 28 X , G1 1 • 7) 

END 
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SUBROUTINE TURN ( RDFl. ,S OFL , DEL t RC ,CAPPHI , AS ) 

C 

DIMENSION A AS 1 9 ) , TDEL (9 ) , DDEL ( 9 ) , AAS INVI 9 } , TZO INV 1 9 I , SOEL 1 9 ) » 
1 RDEU3) ♦TZER0I9) ,ASAI9) 

C 

COSAS=COS( AS) 

SINAS=SIN( AS) 

COS DEL-COS ( DEL ) 

S I NDE L = S I NI DEL) 

C SC PH I -CO S I CA P P H I ) 

SNCPHI=S INC CAPPHI ) 

A AS 1 1 ) =CO S AS 
A AS I 2 ) =0 . 

AASI3 V=S INAS 
AASI4)=0. 

AAS ( 5 )=1 . 

A AS(6 )=0. 

A AS! 7 ) =-S I.NA S 
A AS 1 3 ) =0 • 

A AS 1 9 ) =C0 SAS 
T DEL I 1 ) = COSDEL 
TQFLI 2 ) = SI NOEL 
T DELI 3 ) = 0 . 

TDEL(4)=-SINDEL 
TDEL ( 5 ) = C0 SDEL 
T DEL I 6 ) =0 . 

TDEL ( 7 ) =0 . 

TOE LI 8) =0. 

T DEL t 9!~ 1 • 

DDELI 1) =SINDEL 
DOELI 2)=1.-C0SDEL 
DDELI 3)=0 . 

AASINV!I)=C0SAS 
AASINvI 2 ) =0. 

AASINVI3)=-SINAS 
A ASIN VI 4 ) =C» 

AASINVI 5 ) = 1 . 

AASINVI 6 )=P. 

AASINVI 7) = SI NAS 
AASINVIB )=C. 

AASINVI9) =COSAS 
T ZERO I 1) =1 . 

T Z ERO I 2 ) =0 . 

TZER0I3) =0. 

TZER0I4)=0. 

TZER0I5)=CSCPHI 
T ZERO! 6) =SNCPHI 
TZERO(7)=0. 
rzER0I8)=-SNCPHI 
TZER0I9)=CSCPHI 
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TZf)INV( 11 = 1. 

T ZOINV ( ? 1 = 0 • 

TZOI NV( 3 1 =C . 

TZOINVC 4) =0. 

T Z 0 1 N V ( 5 5 = C S C P H I 
TZ0INV{61 =- SMC PH I 
T ZOINV l 7 1 = C . 

TZOI NV ( 8 1 = SNC PH I 
TZOINVI 9) ~C SCPH I 

CALL GMPRO ( A AS ,TZERO » A SA f 3 , 3 , 3, 9 , 9 , 9) 

CALL GMPRO f AS A » DOF L , FOEL , 3 ,3 , l , 9 ,9 , 3 1 

CALL SMPY (ROEt. »RC, 3, 1 ,31 

CALL GMPRO ( AS A , T DEL ♦ AA S , 3, 3, 3, 9 , 9, 9 1 

CALL GMPRO ( A AS , T 70 1 NV, TOEL ,3 ,3 ,3 ,9 , 9 , 9 1 

CALL GMPRO I TDEL , AA S I NV ♦ SDEL , 3 , 3 , 3 , 9 , 9 ,9 1 

RETURN 

ENO 



SUBROUTINE ROLL I RPH I ,S PH I » AR,DELT, YR » ZR » VDT I 

DIMENSION BMATI9 ) * BINV< 9) » PHI 1(9 ) » PHI2I9) » SPHK9) tP.VECTI 3) t 
1 RPHI (3) » ASV( 91 

SINPHI=SIN(OELT ) 

COSPHI=COS( DELT 1 
ONEPHI=l.-CQSpHI 
SINAR=SIN( AR1 
COSAR=COS ( AR } 

BMAT ( 1 J=COSAR 
BMAT( 2) =0. 

BMAT( 3)=-SINAR 
BMAT < 4 ) = 0 . 

BMAT( 51-1 • 

BMAT< 61=0. 

B MAT ( 7 1 =S 1 N AR 
B MAT ( 8 ) =0 • 

BMAT ( 9 I-COSAR 
BINVI 1 )=COSAR 
BINVI 2) =0 . 

B INV( 3 ) = S I N AR 
8INV(4)=0» 

B INV< 51=1. 

B I NV ( 6) -0 • 

B I NV ( 7) =- SI NAR 
BINVI 81=0 . 

B1 NV( 9 ) =COSAR 
PHIK 1 ) = 1 . 

PHI 1 (21*0# 

PHI 1 ( 3) =0. 

PHI1(4)=0* 

PHU(5)-C0SPHI 
PH 1 1 C 61 = S I NPHI 
PHI 1 ( 71 = 0 * 

PHI1 ( 8) =-S INPHI 
PHI1(9)=C0SPHI 
PHI2( 1 1=1 • 

PHI2( 21=0, 

P H 1 2 ( 3 ) = 0 • 

PHI2( 41=0 . 

PHI 2 ( 51 =ONF.PHI 
PHI2(6) = -S INPHI 
PH 1 2 ( 7 1 =0 . 

PHI 2( 8) = S I NPH I 
PHI? ( 9 )=0NEPHI 
RVECT(l)=VnT 
RVECT ( 2 ) -YR 
RVECT (3)=ZP 

CALL GMPRD ( RMAT f PH I 2 » ASV »3 *3 »3 » 9 »9 » 9 ) 



CALL GMPRD < ASV,RVECT ,RPHI , 3, 3» 
CALL GMPRD ( BMAT» PHI 1 » A SV t 3 » 3 »3 
CALL GMPRD { ASV , B INV t SPHI , 3 t 3 , 3 
RETURN 
END 


lt9,3, 3) 
,9, 9» 9) 
t 9t 9 » 9 1 



c 

c 


SUBROUTINE SIJMPUP f R ALPHA tC AA ,AA ,RP I 

DIMENSION CAAI9J ,RAtPPA{3t 

S I NAA=S IN C A A J 
COSAA=COS( AAI 
R ALPHA! 1 ) =S I NA A*R P 
RAl PH A{2 I =0 . 

RALPHAC3 ! = { 1..-C0S AA|*Rp 

C'AAC.1 j=ccjsaa 
C AA { 2 ) =0« 

CAA( 3 ) = S I NAA 
CAA(4 1=0 . 

C A A ( 5 ) = 1 . 

CAA(6)=0. 

CAAC7 >=-S I NAA 
CAA ( 8 ) =0. 

C AA! 9 l = COS AA 

RETURN 

END 
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SUBROUTINE GMPRD < A, 0 ,R f N , M,L ,M'l , M2, M3 ) 
C 

I) F MENSION AJM1) *R(M2t f R(M3) 

C 

I R = 0 
I K=-M 

DO 10 K=1»L 
I K=T K + M 
DO 10 J- 1 * N 
IR= IR U 
JI=J-N 
I B= IK 
R (IR 1=0. 

DO 10 1 = 1, M 
J 1 = J I +N 
I B= I 8+1 

1C R ( I R) =R ( IR)+A< JU*8< IP) 

RETURN 

END 



SUBROUTINE SMPY tA,C,N,M,MX) 
C 

DIMENSION A(MX) 

C 

NM=N*M 
00 1 1=1, NM 

i Am=Am*c 

RETURN 

END 
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c 

c 


SUBROUTINE STYCLB(RW» SW,VDT,WDT) 

0 I MENSION RW<3)»SWI9| 

RW(U=VOT 
RWf 2 ) =0. 

RW(3)=-WDT 

SW(1J=1. 

SW( 2)=0. 

SW(3)=0. 

SW14)=0. 

SWI 51*1* 

SW(6)=0. 

SW(7)=0. 

Sw 181=0. 

SVU9)=I . 

RETURN 

END 
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SUBROUTINE BETAS 

C THE INPUTS TO THIS SUBROUTINE ARE COMMON TO OTHER SUBROUTINES 

REAL' MU»MU2 »MU4,MBDXB »M02fMBB,KlM10,K2M10,Mi 1,M12 , 

IM13,M?0,M2CC,M2'TD,M115,IO,K 
DIMENSION AOI01 > 

DIMENSION ARIOl) 

DIMENSION B ET A ( 3 » I ) 

DIMENSION D3(P9) 

D IMENS ION 033 (040 ,040 ) 

DIMENSION XBETAI040) 

COMMON /BETA1/BETA,MBFTR,NBETC,PI ,D,R,C, AS, ALPHA 1, ALPHA2,R0 
MBETR = NUMBER OF BETA ROWS 
NBETC * NUMBER OF BETA COLUMNS 
COMMON /BET A 2/D 3 3 , XBETA ,N,M, DETERM 
C COMMON, BETA? CONTAINS THOSE VARIABLES USED BY MATINV 

COMMON /BETA3/OH,0*SQ,A0, AR ,V ,RHO,Mt.J 
EQUIVALENCE (033< 1,1) ,03( 11 i 

C BLADE RIGID BODY CALCULATIONS FOR BLADE WAKE AND ESTIMATED LOADS 

C THE RIGID BODY BLADE FLAPPING MOTIONS ARE GIVEN BY BETA I OMEOA*T ) , 

C WHERE BET A! OMEGA *T ) = BETA ( 1 ) +BETA ! 2 ) *S I N! OM EGA*T ) +BETA3*C0S( 

C OMEGA*T) OR SI NCE PS I -OMEG A*T , , , 

C BETA! PS 1 1 = BETA ( U + RF TAT 2 )* S INI PS I ) + BE T A ( 3 ) *S I N( P S I ) 

C PSI-OMFGA*T=0 AT THE X-AXIS 

C THE BETA! 1 1 , BE TA ( 2 ) ♦ BETA! 3) APE DEFINED BY THE EQUATION WHERE 

C THE MATRIX OF COEFFICIENTS POST-MULTI PL I ED BY THE BETA COLUMN 

C VECTOR = THE COLUMN VECTOR ! MOO , MO 1 , MO 2 ) 

C ALPHA = BLADE SECTION ANGLE OF ATTACK, RADIANS 

C = A0+AP*R + A1.PHA1*SIN( OMT) +ALPHA2*C0S(0MT) 

C ALPHAO = GEOMETRIC ANGLE OF ATTACK AT BLADE ROOT, RADIANS 

C ALPHAR = TOTAL DECREASE IN ANGLE OF ATTACK TOTAL BLADE TWIST 

C ANGLE, RADIANS 

C ALPHAI = AMPLITUDE OF LATERAL CYCLIC PITCH, RADIANS 

C ALPHA2 = AMPLITUDE OF LONGITUDINAL CYCLIC PITCH, RADIANS 

C AS = SHAFT TILT, POSITIVE AFT, RADIANS 

C C = CHORD, FEET 

C D = OFFSET OF HINGE FROM CENTER OF ROTATION, FEET 

C 10= MASS MOMENT OF INERTIA OF BLADE ABOUT THE BLADE HINGE, FT-LB 

C -SEC2/RA0 

C K = SPRING STIFFNESS, FT-LB/RAD 

C L = LIFT OR TRUST OF ROTOR 

C MB = BLADE MASS, LB-SEC2/FT 

C OMEGA = OM = ROTATIONAL RATE OF ROTOR, RAD/SEC 

C R = ROTOR RADIUS, FEET 

C RHO = AIR MASS DENSITY, LB-SEC2/FT4 

C RO = BLADE ROOT RADIUS, FEET 

C V= FORWARD VELOCITY, FT/SEC 

C XB = DISTANCE FROM HINGE TO BLADE MASS CENTER, FEET 

RE AO (5,1) K, 10, MB, XB, ALPHAO, ALPHAR, L,R 
1 FORMAT ( 29X, E10 « 8 ) 

RX=R-RO 
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AD( MBETC ) = ALPHA n+ ALPHAS *rh/rx 
AR ( NBETC ) =ALPHAR/RX 
VOM=V*QM 

vv=v*v 

BORO=RO*RO 

RORORO=R0R0*RO 

R04=R0R0R0*RC> 

RR-R*R 

RRR=RR«R 

R PRP= RRR #R 

A1AS=ALPHA1+AS 

MU2=MU*MU 

MU4=MU2*MU? 

P1ROCL=PI*PH0*C 

R1=PIR0CL*(R-R0) 

R2=P IROCL* (RR-RORO ) /2 . 

R3=PI ROCt* (RRR-RCRQRO )/3 • 

R 4=PI ROCL* ( RRRR-P CV4) /*, 

R5=PIR0CL*CPRRR«R-R0A*R0»/5, 

R 2DRI=R2-D*R 1 
R3DR2=R3-D*R2 
R4DR3=R4-D*R3 
MBQXB«MB*D*XB 
C 2 = C * • 5 

CT=L/(PI #RHn*OM$Q*RRRR) 

WI= SORT(CT*CT+MU4) 

! F (WI.LT.MU7I STOP 
W!=nM*R*< . 5*SORT( WI-MU2 ) ) 

RX=VV*. 5 
A l=AO( NBETC ) 

A2=AR(NBETC) 

MOO=R2DPl*Rx*Al +R 3DR 2*( VQM*A 1AS-GM*WI -A2*R X ) + R ADR 3*OMSQ*A 1-R5 

l*OMSQ*A2 

M 01 =R 2 DR 1*( .75*VV*ALPHAL-V*WI+VV*AS)+R3DR2*VaM*Al*2.+R40R3*(OMSQ* 

1ALPHA1-2.*0M*A2*V) 

M02=(R2DRl*VV*. 25+R4DR3*OMSG) * ALPHA 2 

MBB=MBDXB-R30R2«C2 

K1M10=K+OMSQ*(IO+MBB) 

K 2M 1 0=K1M 1 0-OMSO# 10 
M 1 1 = R 2DR 1 * VGM *€ 2 
M12=-R3DR2*V0M 
M 13=-R2DR 1#RX 
M20--R40R3*0M 
RX=M1 3*. 5 
RX1=M20*0M 
M20C*RX1+RX 
M 200*R Xl-R X 
MU5=M11*.5 
033(1 »1) *K1M10 
033( 
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033(3, 1)=-M12 
033(1, 21 = -M1.15 
033(2,2) = K2M1 0 
D33(3,2)=-M20C 
033(1, 3)=0. 

033(2, 3)=M20D 
033(3, 3)=K2M10 
X BET A(l) =M0Q 
X8ETA ( 2 ) =M01 
X BET A ( 3 ) = MQ2 
N-3 
M = 1 

CALL MAT INV 
DO 2 1=1 , MBETR 
2 BETA( I,NBETC) = XBFTA( I) 
RETURN 
END 
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SUBROUTINE MODRM l NT Vt NTVM, RC AP, RMO 0, AFM, NNRQT* NNTVM, NTVMX » M »NWKR ) 
C 

DIMENSION RCAPLNNROT, NWKR l,RMODINWKR I , AFM( NTVMXtNNTVM ) 

C 

DO 10 LM= 1 ,NTVM 
RMODt LM) =0 • 

DO 10 L=1 1 NTV 
N=L+NTV*(M-1 } 

10 RMOD C LM> =sAFM ( LM »N )*RC AP ( Mf L J + RMOOILM j 
RETURN 
END 
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SUB ROUT INF GMS (I ,NR,OT f NI B t NT VM, BFM , GAMMA, GAMMAM ,NTV«1, NANR »NG JR » 
I NMODR,NMODC1 
DIMENSION BFMUtlO) 

DIMENSION GAMMA 15,40) 

dimension gam m a m i nm oor , nm o n c ) 

T M2 = I -I 
I M 1 = I 

DO 10 M= 1 » NROT 
MM1=M— 1 

N I BMM 1 = N I B *MM 1 
DO 10 K-l » NIB 
KM1=K-1 

K NI BM = KM 1 +N I BMM 1 
NT VMK=NTVM*KN IBM 
NTVK=NTVM1*KNIBM 
DO 10 LM=1,NTVM 
JM=LM+NTVMK 
G A MM AMI I Ml , JMI =0 . 

DO 10 L=l» NTVM1 
J=L+NTVK 

GAMMAM ( I Ml , JM) =-BFM ( LM» L ) *G AM MA( I W2 , Jf 
1 +GAMMAM CIM1»JM) 

0 CONTINUE 
RETURN 
END 



o o o 


SUBROUTINE MOOCOR I NROT ,NI B ,NTV , MTV M , X , Y » Z ♦ XM, YM, ZM , AFM,NANV,NBNT , 
1NWM.I t NVM2 ) 

DIMENSION AFM ( 4t 1 1 ) 

DIMENSION X(NANVtNBNT) 

DIMENSION XMINWM r NVM2) 

DIMENSION YCNANVfNBNT) 

DIMENSION VMl NWM, NVM2 ) 

DIMENSION Z(NANVfNRNT) 

DIMENSION ZM( NWM, NVM2 ) 

MODIFIED WAKE ELEMENT END POINT POSITIONS OR VELOCITIES 

DO 10 M=1 t NROT 
DO 10 K=1,N!B 
DO 10 LM=l tNTVM 
JM-LM+NTVM*! K-l +NIB*I M-l) ) 

XMI I » JM'JsO, 

YM( I, JM)*0 . 

ZMI I,JM)=r. 

DO ID L= 1 1 NTV 
J=L+NTV*{K-1+NI B*(M-1 ) ) 

N=L+NTV«l M-l) 

XMI I, JM) = AFMILM,N )*Xt I, JI+XMI I,JM) 

YMH»JM)=AFM(LMtNI*Y( I, Jl+YMI It JM) 

ZM I I f JM) sAFMILM ,N V*Z U » J) +7. MI 1 1 J M) 

ID CONTINUE 
RETURN 
END 
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SUBROUTINE MODCOX ( NROT ,NI B ,N TV, NTVM*X , XM , AF M, NANV, NBNT*NWM , I , 
1 NVM2 »NA S i 
DIMENSION AFM 1 4*11) 

DIMENSION X( NANV* NBNT ) 

DIMENSION XM( NANV »NVM2) 

MODIFIED WAKE ELEMENT END POINT POSITIONS OR VELOCITIES 

DO 20 M= 1 , NROT 
DO 20 K=1,NIB 
DO 20 LM=1,NTVM 
JM=LM+NTVM*( K-l+N I R M- 1 ) ) 

IF (NAS.EO.I.AND.LM.LT.NTVm) GO TO 15 
IF (LM.LT.NTVM) GO TO 20 
XM( I, JM )=0 » 

GO TO 16 

15 READ (5,100) XM(I,JM) 

100 FORMAT ( 29X » F14 • 7 ) 

GO TO 20 

16 DO 10 L® 1 * NTV 
J=L+NTV*( K-l +NI B*( M-l ) ) 

N=L+NTV*(M-1) 

XM ( I , JM ) = AFM( L M »N )*X( 1-1, J)+XM( I,JM) 

10 CONTINUE 
20 CONTINUE 

1002 FORMAT ( 7HOMODCOX *9 ( IX* G1 1 • 4) ) 

RETURN 

END 
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c 


OVERLAY ( WKOVL* 3, 0 ) 

PROGRAM WK2 

INTEGER OUT * WKPT »CNTR 

INTFGEP T45,NW 

REAL MXYZ t MU,MUALT,MUSpK,MUCAT,MUSAT,MUDP,MUSDP,LLNTH,LNTH f LOADN, 
1LTMP,LSQ,MX,MY,MZ ,MUCDP,MUSDS »MUCDS ♦ 1 0, MB , LX , KXX 


DIMENSION A( 05 ,44 I 
DIMENSION ALFAHOU 
DIMENSION ALFA? ( 0 1 ) 
DIMENSION ALF AS ( 0 1 1 
DIMENSION ALF AT ( 01 ) 
DIMENSION ALPHAO(Dl) 
DIMENSION ALPHAR(OI) 
DIMENSION AO < 0 1 ) 
DIMENSION AR 101 ) 
DIMENSION ATMPUn 
DIMENSION B( 005 ♦ 40) 
DIMENSION BETA! 03*1) 
DIMENSION BTMP(ll) 
DIMENSION C (09 ) 
DIMENSION CCLA(Ol) 
DIMENSION CHORD ( 0 1 ) 
DIMENSION DFLTA(OI) 
DIMENSION DIR(l) 
DIMENSION DNTH( Oil ,040) 
DIMENSION DSO (040 ) 
DIMENSION OTMP( 040) 
OIMFNSION DUMX ( 108 ) 
DIMENSION DUMY(108) 
DIMENSION DUMZdOB) 
DIMENSION GAMMA (05 » 04 0 ) 
DIMENSION GAMMK( 1,040) 
DIMENSION INDXG(AO) 
DIMENSION 10(01) 
DIMENSION KXX(Ol) 
DIMENSION LNTH( 05,44) 
DIMENSION LSO( 044) 
DIMENSION LTM P( 044) 
DIMENSION LX(01 ) 
DIMENSION MB (01) 
DIMENSION MUCDS(l) 
DIMENSION MUSDS(l) 
DIMENSION NPSK1) 
DIMENSION PS 1(1) 
l) ( MENS I ON PSTR(Ol) 
DIMENSION R ( 1 1 ) 
DIMENSION PC AP (01 ,11 ) 
DIMENSION R SMLL ( 01,44 ) 


DIMENSION RZERD(l) 
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c 


c 


c 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


SGMA1 ( 044,044} 
STORE (360) 
SIGM7.U0) 

VI ( 01 , 0 ] ) 

VX( 05 ,44 > 

VYC 05,44) 

VZ(05 ,44) 

WK X( 01 , 01 ) 

WKY ( 01,01 ) 
WKZIOl ,01 ) 

X( 05 , 44 ) 

XMM ( 54 ) 

XROTlOl ) 

XX(01) 

Y ( 05, 44 ) 

VMM ( 54 ) 

YROT (01 ) 

Z ( 05 ,44 ) 

ZMM( 54) 

ZROT (01) 


COMMON /STPS7 / NR AT 1 0 ,NAA , L RG WKS , U MLSS , LSWW 
COMMON / STPDUM/ DUMX , DUMY » OUM 7 

COMMON /BET Al /RET A, MBETR, NBET C, P I , D ,U » F. AS, ALPHA1, ALPHA2,P0 
COMMON /BETA3/0M,0M SO , AD , AR , V ,RHO ,MU 

COMMON /TEST33/ N I R ,N POT , NW , N BR V 1 * X ,Y, Z , A, B , DNTH, LNTH ,NAR ,NPER , 
1JSIGT,NWMK, J,NWM1 ,NI R V, VX , VY, VZ ♦ N IBR V 
COMMON /TEST55/ JL, J S IG ,NTV ,NTV1 ,M , DPS I , CHORD , R SMI L , RC AP , GAMMA , QSZ 
COMMON / WAKF1 / VOOMR , MJWKPT ,VI , WKX , WKY ,WKZ , C0SB3 , S INB3, NASI , 

IN I BNA ,NWKL ST » NW KR W, NWKC L , NLPl ,NLP2, NLP3 , NLP4 , TWOP I 


COMMON /CONT/ N A, NR ,N ANR , J A , J J , NN, N , S IGN , I I , NGJR 
COMMON /WK 1C / P S I » C C L A , 0 1 R 

COMMON / WK2A/ MSET , GAMMK, I NDX , J AC, INOXL, SGMAZ , SI GMZ » SGMBL 

COMMON / WK2B/ X A , YA , Z A, XB , Y B, ZB, XC, YC, ZC 

COMMON /SUBIB/ KX ,L SO , DSQ , D TM P, L TMP , ATMP , BTMP 

COMMON /SUBIC/ R,C,DTWOPI 

COMMON /SUBID/ I,IP1,IM1 

COMMON /CONVGB/ SGMA1 , INDXG 

COMMON /WK?C/ STGBL 

COMMON /MQDWK1 / G AM MA MI 54 ,16) ,RM(1) , AM(05,16) ,VXM( 54, 16) , 
1VYM(54, 16), VZM( 54,16) ,XM( 54,16) ,YM( 54, 16) ,ZM(54, 16) 

COMMON /MODCNT/ NTVM , NWSTRE , MWR » NANRM, NI BRVM, N I BM 
COMMON /SUB I E / NAS 

COMMON /OUT .01 / NNTV ,N EX PWK , NS IGRW,NMODR,NM0OC 

COMMON /WK2GAM/ GAMFAC 

COMMON / DART 1 / SGRATO 

COMMON /M0DWK3/ AFM ( 4 , 11 ) , BFM (4 , 10 ) 

COMMON /STEPXA/ WKPT , WW, I OUT, NQTTP1 ,KAT , NBC 
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o r> o o n o o n o o n o o o o o n n o n n n n o 


DATA I NX 1 , TNX? , INX3* TMX4, INX5, INX6, TNX7/ 

14H X » 4H Y,4H Z , 4H VX ,4H VY,4H VZ,4HSIGA/ 

C 

9876 FORMAT ( 1 HO » 1 1 4 , ( 8 ! 1 X , G 14 • 7 )I ) 


NEW COORDINATES FQP PlJ AND LOAD COMPONENTS OF GAMMA! 1 * J I ARE 
NOW COMPUTFD, WAKF AND SELF-INDUCED VELOCITY COMPONENTS 
OF GAMMA! It J> ARE TO BE COMPUTED 

DEFINITION OF VZ J ( PR AR J , PS I II 

VZS AND SIGMAS ARE DEFINED AS FOLLOWS. THE EFFECT OF THE WAKE 
FROM ONE BLADE IS COMPUTED, ONE ROW OF SHED VORTICES AND 
THE TRAILING VORTICES JUST AHEAD OF THEM TAKEN PER TIME. 
THE DISTANCES FROM THE POINT WHERE THE INDUCED VELOCITY IS 
COMPUTED AND THE VORTEX ELEMENT IS LOCATED, AND THE 
ORIENT AT I ON OF THE VORTICES ARE SUCH THAT ESSENTIALLY 
THE SAME FORMULA CAN Bp USED TO COMPUTE THE EFFECT OF 
BOTH SHED AND TRAILING VORTEX ELEMENTS. XA, XB, XC, ARE 
THE X COORDINATES Of THE POINT AT WHICH THE INDUCED 
VELOCITY IS COMPUTED, AND THE END POINTS OF THE VORTEX 
ELEMENT UNDER CONSIDERATION. 


J = 0 
M = 1 

IF (NPER.E0.4.AND.NRATI0.GT.I ) 

1 CALL MODC OR INROT ,NI 8 ,NTV , NTV M, X , Y, Z, XM, YM , ZM , 

2 AFM, NEXPWK , NNTV , NMODP , NANR M- NR AT TO, NMODC ) 

IF (NW.GT.2J GO TO 88 

DO 81 J X = 1 , N I 8RV 

81 A! 1 , J X) =CHORD ( M ) 

DO 82 JX=1,NGJR 

82 8 ( 2 , J X ) =CH0RD ( M ) 

83 DO 140 M= 1 ,NROT 

NPS I ( M ) = ( PS I { M ) /DPS I ) +. 5 

T 44 TESTS TO SEE IF VAR IS IN RANGE 
CALL T 44 ( NPSI t M ) » NA 1 

NSET = NR * (NPSI <M) ) + (M-l) * NTV1 

DO 140 K- 1 , NI B 

T45 = ( K— 1 | *NA/NI 8 

MSFT = NSET + NR*T45 

CALL T44 ! MSET ,N ANR) 

J KL = ( K-l ) *NTV+( M-1)*NTV*NIB 
DO 140 L= 1 * NTV1 
MSFT=MSET+1 
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j=j+i 

I NDXG( J) =MSET 
JKL=JKL+ 1 
JPl=JKL+l 
L P1=L + 1 

INITIALIZE SIGBL FOR PLADF LOADS 

DO 84 IND=1,NANR 
SIGBLUND) = 0.0 
JAC = 0 

A IS THE POINT AT WHICH INDUCED VELOCITIES ARE TO BE COMPUTED. 

X 1 A=.5*{X< 1, JKU+Xd , JPl ) ) 

YA-.5*(Y{ I, JKLH-YlltJPl) ) 

ZA=.5*(Z< 1,JKLI+Z<1, JP1 U 
VZC1, J)*0. 

JSIG=0 

MODWK=0 

N1=NIBRV 

N2=NTV 

KX=M*K*L 

01 00 138 JA=1 ,N1 , N2 

JSIGT-l+t JA-1 )*NTV1 /NTV 
JAC = JAC +1 

COMPUTE R FOR CURRENT BLADE 

IF (MODWK.EO.O) GO TO 86 
J8= JB+1 

IF (JB.GT.NTVM) jB=l 
JAC*( JA-1 ) /NTVM + 1 
XB=XM(NANRM,JA) 

YB=YM ( NANRM , JA ) 

ZB-ZM(NANRM,JA) 

W0RK1 =XB-X A 
W0RK2 =YB- YA 
WORK3=7B-ZA 

R M(1 ) =SORT ( WORK 1*W0RK 1 +WORK 2*W0RK 2+WORK 3*W0RK3 1 
GO TO 137 
86 DO 87 JL= 1 » NTV 
JK=JL+ JA-1 
XB-X( 1, JK) 

Y B=Y ( 1 , JK ) 

ZB=Z( 1 , JK ) 

W0RK1=XA-XB 
W0RK2=YA-YB 
W0RK3 = ZA-Z R 

RT=W0RK1*W0RK 1 + W0RK2*W0RK?+ W0R.K3*W0RK3 
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87 R ( JL I =SQR T I RT) 

INITIALIZE TEMPORARY STORAGE LOCATIONS. 

88 DO 89 NN= 1 , NTV 
LTMPINN)-0. 

ATMPI NN ) = CHORD I M I 
DTMP( NN ) =0 • 

89 BTMP( NN) =CH0RD( M) 

NWMl*NW-l 

137 SGMAZ=0. 

I NDX = NPSKM) + ( JAC-1 )*NA/N 1 8+1 

LOCATE POINTS B AND C. 

IF IMODWK.E0.OJ CALL SUBI 
IF IM0DWK.NE.il GO TO 138 
Nil 1=NWSTRF 

TF (NPER.E0.4) N111=LRGWKS 
DO 152 IND=1,N111 
DUMXI INO ) = XM l IND» JA ) 

D U MY < I ND ) = YM 1 1 ND. JA ) 

152 DUMZI IND)=ZMI IND, JA) 

L IMLSS=NWSTRE 

IF (NPER.NE.4) GO TO 151 
IF(NRATIO.EQ.l) GO TO 151 
DO 153 IND=LRGWKS . NWS TP F 
XMM(INO)=XM(IND t JA) 

YMM( IND) = YM(IND, JA) 

153 Z MM ( I ND ) = ZM < I N 0 » J A ) 

I NO-LP GWK S-l 
IND1=LRGWKS-NRATI0 
XMM( I ND) =XM( I ND1 » JA) 

YMM( IND) =YM( TN01»JA) 

Z MM( I ND ) = ZM( I ND1 » J A ) 

CALL INTERP(NRATIO,LRGWKS,NWSTRE ,L I MLSS ♦ XMM, Y MM , ZMM f DUMX , DUMY 
1 » DUMZ ) 

151 IF (MODWK.EO.l) CALL SUBI I ( NPER , NA, I NDX , NR , J AC , N I R » NROT , N TV1 ♦ VZ ♦ 
1 JA, J » JB » L IML SSI 

138 CONTINUE 
M0DWK=M0DWK+1 
N1=NIBRVM 
N2= 1 

J9 = 0 

IF (MODWK. EQ. 1 .AND, NAS. GT .NANRM) GO TO 91 
IF ( NPER.NF.4) GO TO 139 
$XG=SIGBL<MSFT)*SGRATr 
SXX=ABS( SXG) 

DO 7447 TND=1,NANR 

SIGBU IND)=S IGBLf IND) *DTWOP I 
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SXY=ARS( SIGBL(IND) ) 

IF U SXY.GT.SXX) . AND . I NO • ME • M SET ) SIGBU INQ)=SIGBL< I NO) /SXY*SXX 
7447 CONTINUE 

WRITE (4) MSET, < S TGBU INO) , Tn0 = 1 ,NANR) 

WRITE(6, 9887) MSET 
9887 FORMAT (1X,8H MSET - , 15 ) 

I F( NBC.NE ,-2) GO TO 139 

WRITE (6,9876) MS ET , ( S I GBL< IND ) , IND = 1 , NANR ) 

C 

C LNTH(1,J) AND A(1,J), DNTH (2, JSIG) AND 8(2, JSIG) ARE NOT 

C COMPUTED UNTIL STATEMENTS 150 THRU 166. 

C DNTH ( 1 , JSIG) AND B(1 , JSIG) ARE NOT YET NEEDED, AS THEY INVOLVE 

C THE VORTICES AT THE BLADE AND KNOWN LENGTHS BETWEEN THE 

C R< J) S. 

C COMPUTE GAMMA, INDUCED WAKE VELOCITY, EXCEPT GAMMA ( 1 , J ) AND 

C LOAD COMPONENTS. 

C 

139 WOR KX=AB S ( VZ( 1,J) ) 

PX=GAMFAC 

IF ( WORKX.GT.PX) VZ ( 1 , J ) =VZ ( 1 , J ) /WOR KX*G AMF AC 

140 G AMMK ( 1 , J )=VZ(1,J)*CCLA(M)/TW0PI+GAMMA< 1 ,J) 

RFTURN 

END 
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SUBROUTINE INTERP (NRATI0,NF IR ,NLST, I 1 , X , V, Z , XN, YN, ZN) 

0 I MENS TON X(54) ,V(54) ,Z(54) ,XN(108) , YN(IDR) , ZN< 103 ) 

DATA RM 1 , RP 1 03 » R P97 , RM19/- . 55 555 55E- 2 » . 5 722222 , . 53 88 889 »- » 105555 5/ 

IF(NRATI0.NE.2. AND • NR AT 10 .NF. 3 ) GO TO 998 

IF (NFIR.LT. 21 GO TO 997 

NLIM=NLST-NFIR-1 

XN( IMF I R) -X (NF I R ) 

Y N ( NF I R ) = Y ( NF I R ) 

ZN(NFIR)=Z(NFIR ) 

I SSMNR=NF I R— 2 
I 1 = NF I R 

GO TO (999, 20,30) tNRATIO 
20 00 25 1=1 » NLI M 
11=11+1 

I SSMNR= I SSMNR+1 
I SS=I SSMNR+1 
I SSP1= I SSMNR+2 
I S$P2=I SSMNR+3 

XN( 1 1 ) =-. 0625* ( X( [ S SM NR ) + X ( I S S'P-2 ) ) + • 5625* { X ( I SS ) +X ( I SSP 1 ) ) 

YN ( II ) = -.06?5*< Y ( ISSMNR ) +Y( IS SP 2 ) ) + . 5625* ( Y( I SS) + Y( ISSP1) ) 

ZN( 1 1 ) = -. 0625* ( Z ( ISSMNR )+Z( IS SP 2 > ) + . 5625 * ( Z( ISS ) +Z ( ISS^l) ) 

1 1=11 + 1 

XN( II ) = X( ISSP1 ) 

YN( I1)=Y( ISSPU 
25 ZN{ II ) = Z ( ISSP1 ) 

GO TO 999 
30 DO 35 I=1,NLIM 
1 1=11+1 

T SSMNR=I SSMNR + 1 
I SS=I SSMNR+1 
ISSPl=ISSMNR+2 
I SSP2=I SSMNR+3 

XN ( 1 1 ) =RM 1*X( ISSMNR )+RP 103* X( ISS) +RP97*X< I SSP 1 ) +RM1 9* X( I SSP2 ) 

YNU1 )=RM1*Y< ISSMNR )+RP103*Y< ISS )+RP97*Y( I SSP 1 ) +RM 19*Y( I SSP 2 ) 

ZN( II )=RM1*Z( I SSMNR )+RP 103* Z( ISS) +RP97*Z{ ISS PI ) +RM19*Z< ISSP2 ) 
11=11+1 

XN( 1 1 ) =RM19*X( ISSMNR) +RP97*X{ ISS ) +R,P 103*X ( I SSP 1 ) +RM 1* X( I SSP 2 ) 

YN( II ) =RM 19*Y( ISSMNR) +RP97* Y( I SS) +RP 103* Y( I SSP l ) +RM1*Y( ISSP2) 

ZN( II )=RM19*7_( ISSMNR) +RP97*Z( I SS ) +RP 10 3*Z ( I SSP 1 ) +RM 1*Z( I SSP 2) 
11=11+1 

XN( 1 1 ) = X( I SSP 1 ) 

YN ( II )=Y ( I SSP 1 ) 

35 ZNCI1) — Z< ISSP1) 

GO TO 999 

997 WRITE l 6,9970) NF IR ,NRA T TO 

9970 FORMAT! 1H0,5HISS =, I3.13H FOR NR ATI 0 =,I3,13H IS INCORRECT) 

GO TO 999 

998 WRITE (6,9980) NR ATIO 

9980 FORMAT ( 1H0 , 1 3HG I VEN RATIO =,I3, 

1 36H IS INCORRECT F-'R SU p,J OUT INF INTERP ) 
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999 RETURN 
END 
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SUBROUTINE T44 I A »N A ) 
INTEGER A 

1 IFIA.LT.O.OI GO TO 2 

IF(A.GE.NA) GO TO 3 
RETURN 

2 A=A + NA 
GO TO l 

3 A = A - NA 
GO TO 1 
end 
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SUBROUTINE SUB I 
INTEGFR OUT » WKPT , CNTR 
INTEGER T45,WW 

REAL M X Y Z , MU f My A L T , M-U SP K , M UC A T , M USA T , M UO P , MU S OP » L LNT H , L NT H , L OA DN » 
1 LTMP, LSQ ♦ MX , MY , MZ. ,MUC TP , MUS OS , MUCUS * IQ,M8»LX»KXX 

DIMENSION At 0.5* 441 
DIMENSION ALEAl(Ol) 

DIMENSION ALF A 2 (01) 

DIMENSION ALF AS (01) 

DIMENSION At FAT (01 ) 

DIMENSION ALPHAO ( 01 ) 

DIMENSION ALPHAR(Ol) 

DIMENSION A0( 0! ) 

DIMENSION ARtDl) 

DIMENSION AT { 1 1 ) 

DIMENSION ATMP(ll) 

DIMENSION B(005,40) 

DIMENSION BET A( 03 »1 ) 

DIMENSION PT(Il) 

DIMENSION BTMPt 11 > 

DIMENSION C(PP) 

DIMENSION CCLAtCl ) 

DIMENSION CHORD (Cl) 

DIMENSION DEI TA ( 0 1 ) 

DIMENSION DIR 11) 

DIMENSION DLNTH {040 ) 

DIMENSION DNTHt Oil ,040) 

DIMENSION PSQ (040 ) 

DIMENSION DTMP ( 04 C ) 

DIMENSION GAMMA { 05, 040 
DIMENSION GAMMK( 1,040) 

DIMENSION iNDXGt 40) 

DIMENSION 10(01) 

DIMENSION K XX ( 0 1 ) 

DIMENSION LLNTH (044) 

DIMENSION LNTH( 05,44) 

DIMENSION LSO( 044 ) 

DIMENSION LTMP( 044) 

DIMENSION LX(Ol) 

DIMENSION MB ( 0 1 ) 

DIMENSION MUCDS(l) 

DIMENSION MUSDS(i) 

DIMENSION NPSI(l) 

DIMENSION PSI(I) 

DIMENSION PSIR(Ol) 

DIMENSION Rill) 

DIMENSION PC AP (01 , 1 1 ) 

DIMENSION P SMLL ( 0 1 , 44 ) 

DIMENSION P ZERO ( 1 ) 
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DIMENSION SGMAK 044,044) 

DIMENSION SGM A? (05,44 ) 

DIMENSION SIGBl (3601 
DIMENSION SIGMZ(IO) 

DIMENSION VI (01 ,01) 

DIMENSION VX{0 5,44) 

DIMENSION VY (05,44) 

D I MFNST ON VZ(05,44) 

DIMENSION WKX ( 0 1 , 01 ) 

DIMENSION WKY ( C 1,01 ) 

DIMENSION WK7 (01,01) 

DIMENSION X ( 0 5 » 44 ) 

DIMENSION XROT (01) 

DIMENSION XX(01) 

DIMENSION Y ( 05, 44 ) 

DIMENSION YROT(Ol) 

DIMENSION 7(05,44) 

DIMENSION 7R0T (01 ) 

C 

c 

COMMON /BETA) / BET A»MB ETR , NB ETC, P I ,0 , U, F , AS , AL PHA 1 , ALPHA? , RO 
COMMON / BETA3/QM, OMS Q ,A0, AR »V ,RHO,MU 

COMMON /TEST33/ N IB , NPOT, NW ,NBRV1 , X , Y , 7 , A , B , ONTH , I.NTH , NAR , NPER , 

1 J S I GT , NWMK , J , NW Ml ,N T RV, VX , VY, VZ, N IBR V 
COMMON /TEST55/ JL, jS IG,NTV »NTV1 ,M, OPSI , CHORD, RSMLL ,RCAP , GAMMA, QSZ 
COMMON /W AKE1 / VOOMR , NUWKPT , V I , WKX , WKY , WKZ ,COS B3 , SI NR3, NA SI , 
LNIBNA,NWKLST, NWKRW,NWKCL, NLP1 , NLP2, NLP3, NLP4 , TWOP I 
COMMON /CONT/ NA , NR , N ANR , JA , J J, NN ,N , S IGN , 1 1 , NGJ R 
COMMON / W K 1 C / PSI ,CCLA,DIR 

COMMON / WK? A/ MSET, GAMMK, I NDX , J AC, I N DXL, SGMAZ , S I GMZ , SGMBL 
COMMON /WK2B/ XA , YA , Z At XB , YB, ZB , XC , YC , ZC 
COMMON /WK2C/ SIGRL 

COMMON /SUBI 8/ KX,LSO ,DSQ,nTMP,LTMP, ATMP,BTMP 
COMMON /SUBIC/ R,C,DTWOPI 
COMMON /SUBID/ I, IP1 , IM1 
COMMON /SUSIE/ NAS 
COMMON /CONVGB/ SGM A l , INDXG 
C 

DO 135 I=1,NWM1 
I P 1= I +1 
XC-X( IPI , JA) 

VC*Y(IP1,JA) 

z r— z ( ipi , ja) 

XB=X( I , JA ) 

Y B=Y ( I, JA ) 

ZB = Z ( I, JA) 

NN = 1 
N= 1 

S I GN=1 . 

J J-J A 
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JSIG=JSIGT-1 
ASSIGN 100 TO NCNTR 
W0RK1=X A-XC 
W0RK2=YA-YC 
M0RK3=ZA-ZC 

RT=WORKl*WORKl+WORK2*WORK2+WORK3*WORK3 

COMPUTE SQUARE ROOT OF RT AT THE APPROPRIATE STEP. 

IFtNPER.NE.4) GO TO 90 
5 IGN = 0 

IF! INDX-I . GE.NA) IGN * -1 
IF( INDX-I • LT.O) IGN = 1 
INOX = I NDX + NA * IGN 
IF ( IGN.NE.O) GO TO 85 

INDXL= ( INOX-I) * NR + UJAC-1J/NI8) * C NR/NROT ) 

90 R S=SQRT ( RT ) 

GO TO NCNTR, 1100,114,115,117,118) 

COMPUTE NV*G, TRAILING VORTEX CONTRIBUTION, OR ETA*H, SHED 

VORTEX CONTRIBUTION, L2 OR 02, AND ADO TO PREVIOUS CON- 
TRIBUTIONS FROM QUADRILATERAL FOR GAMMA I I , J S I G) . 

100 RPR=RS+R ( NN) 

DORL= (XR-XC )**?+( YB-YC ) **2+ ( Z B-ZC )**2 

ASSIGN 94 TO IORGT 

W0RK1=R(NN> 

V TE S T=R S* RS+ WORK 1 *WOR K1 -DOR L 
IF 1VTEST.GT.0) GO TO 101 
W0RK2=RS-W0RK 1 
WORK2=WORK2*WORK? 

W0RK3=RS+W0RK1 

W0RK3-W0RK3*W0RK3 

VTEST=( WQRK3-D0RL )*(OORL - W0RK2 ) / { 4 . *DORL ) 

IF (I.NE.l) GO TO 92 
W0RK1— CHORD! M) 

GO TO 93 

92 IF (S IGN.GT.O) WORK l-A! I- 1, JJ ) 

IF (SIGN.LT.O) WORKER! I , JS IG+1) 

93 WORK1*WORK1*WORK1 

IF (VTEST.GT.WORKl) GO TO 101 
HORG=0. 

W0RK5=SQRT ( DORL ) *W0RK1 
I F (WORKS . NF.O • ) HORG= 1 . /WORKS 
ASSIGN 95 TO IORGT 
GO TO 103 
101 H0RG=0. 

W0RK5=R(NN > *P S* ( R PR*RPR-DORL) 

IF! W0RK5.NE.0. ) HORG= SIGNER PR /WORKS 
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103 EORNZ=(XA-XC)*(YC-YB)-(YA-YC)*< XC-XB) 

EHNGZ=E0RNZ*H0RG 
GO TO IORGT, (94,95) 

95 S I GM= 1. 

IF (EHNGZ.LT.O. ) SIGM=-1. 

J X= JS I G 

IF (N.LE.2) JX= JS IG+1 
W0RK1 =GAMMA( I , JX) 

W0RK2=EHNGZ*W0RK1 

IF ( ABS ( WORK? ) • GT • 1 • ) EHNGZ^S IGM/W0RK1 
94 SGMAZ=EHNGZ+SGMAZ 

96 IF (N-2 ) 102, 104, 106 

STORE R, L2 , COMPUTE B FOr SHED VORTEX CONTRIBUTION. 

102 R ( NN) =RS 

LLNTH(NN) =OORL 
JJ=JJ+1 

I NDXL= INDXL+ 1 
XB = X( IP 1 , J J) 

YB~YI I PI , J J ) 

Z9=Z( IP1,JJ» 

WORK 1=XA- XB 
W0RK2=Y A-Y B 
W0RK3=ZA-ZB 

R T= WORK 1* WORK 1 + WORK 2* WQRK2 + W0RK3 *W0RK3 
N = 2 

S IGN--1. 

GO TO 90 

STORE 02 , COMPUTE C FOR TRAILED VORTEX CONTRIBUTION. 

104 C ( 3 ) =EHNGZ 
JSlG=JSIG+l 
XC=X< I, JJ ) 

YC=Y( I,JJ) 

ZC=Z( I, JJ) 

N=3 

DLNTH ( NN )=DORL 
NN=NN+1 
S I GN=1 . 

GO TO ICO 

RFDEFINE C. 

106 XC=X8 
YC =YB 
ZC=Z B 

IF U-l) 107, 107, ICR 
C 
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GAMMA! l, J)S ARE UNKNOWN. IF I- I » STORE SIGMA! J t JSIG) • 

THIS IS SIGMA! 1,PSIT ♦JtJSIG) 

107 SGMAllJ, JS IG) = SGM AZ*CCLA! M) *DTW0PI 
SGMBL = SGMA7 

GO TO 109 

GAMMA ! 1 , J) ARE KNOWN FOR T.GT.i. COMPUTE VZ!i,Jl, 

108 V Z ! 1 , J) -VZ ! 1 , J I + < SGMA Z-S I GM7.I NN-1 ) ) ♦■GAMMA ( I , J S T G) 

IF! NPER.NF.4) GO TO 109 

SGMBL = SGMA 7 - S TGMZ(NN-l) 

SGMA?! I ♦ JSIG) = SGMBL 

CONVFN IENT LOCATION TO COMPUTE SIGMA! J,PSI I, I, JJ> 

POSSIBLE ADDED CODING 

109 S I GMZ ! NN- 1 ) = C! 3 ) 

IF (NPER.NE.4) GO TO 112 
S IGBL ! INDXL I = SGMBL + SIGBL! TNDXL) 

IF THE ROW IS NOT COMPLETED, STORE SGMAZ AND CONTINUE WITH VZ 
COMPUTATION. 

112 IF 1NN.GT.NTV1) GO TO 111 

110 SGMAZ=-EHNGZ 
GO TO 102 

COMPUTE NFW VOPTEX CORE f*ADII FOR I.GT.l, OTHERWISE STORE L2 
AND D2 . 

111 R ( NN I =RS 
SGMAZ=0. 

LLNTH1NN) =DORL 

IF (KX.GT.1) GO TO 135 
IF 1I.LE.1) GO TO 122 
I M 1= I - 1 
NN= 1 

N IS REPLACING J FROM STATEMENTS 111-138. 

N= J A 

JSIG=JSIGT 

113 RT=LLNTH! NN I 
RS=SQRT(RT) 

STORE L, 

114 LLNTH INN) =R S 
RT-LNTH! 1-1 ,N)/RS 
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RS = SQRTCRT > 

COMPUTE TRAILING VORTEX CORE RADII. 

115 ATtNN)=RS*MI-l,N) 

IF (MN.GT.NTV1 | GO TO 119 

THERE IS NO BfNTV) SO DO NOT COMPUTE IT, OTHERWISE COMPUTE B 
TRAILING VORTFX CORE RADII. 

116 R T— 0LNTM f NN 1 
RS=SQRTfRT J 

117 RT=DNTH|l vJSIGI/RS 
DLNTHt NNf =RS 
RS-SQRTf RT I 

118 8TINNI*RS*BU .JSIGl 
N=N+1 

JSIG=JS1G*1 
NN-NN+1 
GO TO 113 

MAKE PERMANENT STORAGE OF L AND D* A AND 8, 

119 I M1=I -1 
N= JA-1 

TO 120 NN-1,NTV 
N=N + 1 

LNTH{ I M 1 , NT =L TM P { NN ) 

LTMP(NN) =LLNTHINN1 
A 1 1 - 1 1 N ) = A TMP I N NT 
ATMP( NN)=AT(NN1 

120 CONTINUE 
JSIG= JSTGT-1 

DO 121 NN=1,NTVI 

JSIG=JS!G+1 

DNTWC I rJSIGl =0T Mp t NN 1 

9T«Pt NN)*DtNTH< NN 1 

81 I* JST&1—B.TMPI NNi 

8TMPtNNl»BTfNNl 

121 CONTINUE 
GO TO 135 

STORE L**2, D**2 FOR 1=1 * ALL J* FOR DEFINITION OF A AND B 
AFTER CIRCULATIONS ARE COMPUTED 

122 JNTV=JA+NTV1 
NN=0 

DO 124 JJ=JA,JNTV 
NN=NN*l 

LSQC JJ)=LLNTH«NN» 
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124 CONTINUE 

JSIGI=JS IG-NTV1+1 
NN=0 

00 126 J J= J SIGI » J SI G 
NN=NN+1 

DSQt JJ»=DLNTH<NNI 
126 CONTINUE 
135 CONTINUE 

IF IKX.GT.il RETURN 
N= JSI GT- 1 
DO 139 NN=1 » NTV1 
N=N+1 

DNTH( NW» N )=DTMP (NN 1 
B I NW» N)=BTMP( NN ) 

139 CONTINUE 
N= J A-l 

DO 141 NN=1,NTV 
N=N+1 

LNTH(NW-l t NI=LTMP(NN> 

MNW-1»N1 -ATMPINN1 

IF (NW.EQ.2.AND.NAS.EQ. 1) A <NW,N)=CHORD< Ml 
141 CONTINUE 
RETURN 
END 
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SUBROUTINE SUBI I ( NPER , NA , I NOX ,NR, J AC ,NI B, NROT, NTVI , VZ, JA, J , JB, 

1 NWSTRE ) 

INTEGER OUT,WKPT,CNTR 
INTEGER T45 » WW 

REAL MXYZ,MU,MUALT,MUSPK,MUCAT,MUSAT,MUDP,MUSDP,LLNTH,LNTH,LOADN, 
1LTMP ,LSQ*MX , MY, MZ» MUCDP , MUSDS »MUCQS » I O, MB »LX » KXX 

DIMENSION VZ < 05 ,44 ) 

COMMON /STPSZ/ NRGLD,NAA,LRGWKS, L1MLSS, LSWW 

COMMON /MO0CNT/ NTVM,NX STRE , NWR »NANRM, N IBRVM, NI 8V 

COMMON /MODWK 1/ GAMMA <54,16),R (lit A < 05 ,161 , VXMJ 54 * 16) • 

1 VYM( 54,16) ,VZM< 54,16) ,X M( 54 , 16 ) , YM ( 54, 16 1 , ZMC54, 16 ) 

COMMON /STPDUM/ X( 108) ,Y( 108) ,Z( 108) 

COMMON / MQ0WK.3/ AFM (4,11), 6FM( 4, 10) 

COMMON / VLNTHS/ NAL I M, VLU 40 ) 

COMMON /WK26/ XA, YA , ZA , XB , YB , ZB , XC , YC ,ZC 
COMMON /WK2C/S IGBL ( 360 ) 

EL=VLL< JA) 

TW0EL=2.*EL 
RSQsRC 1)*R{ 1) 

NSW=- 1 

NWSTM1=NWSTRE-1 
I =N ANRM- l 
NRATIO= 1 

70 1=1+1 
JZ=I 

IF ( NPER *NE .4 ) GO TO 71 

IFl l .LT.LRGWKS) GO TO 71 
NRATI 0=NR0L0 

jz=ci-lrgwksi/nratio+lrgwks 

71 IPl=l+l 

IFINRATIO.GT.l) GO TO 72 
XC=XM(IP1,JA) 

YC= YMI I P 1 , J A ) 

ZC=ZM ( IP1»JA) 

GO TO 73 

72 XC=X(IP1) 

YC=Y { IP 1 1 
ZC=Z( I PI) 

73 WURK 1-XA-XC 
WURK2=YA-YC 
W0RK3=Z A-ZC 

RT=W0RK1*W0RK1+W0RK2*W3RX2+W0RK3*W0RK3 
IF(RT.GT.TWOEL) GO TU 86 
IF (RSQ.LT.EL) GO TO 84 
IF (RT.LT.EL) GO TO 84 
NSW=0 
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GO TO 134 
86 1=1 + NAUM 
NSW= 1- 
GO TO 134 

84 IF (NSW.LT.l) GO TO 87 
1=1— NAL IM 
GO TO 135 
NSW=- 1 
C 

C COMPUTE SQUARE ROUT OF RT AT THE APPROPRIATE STEP. 

87 IFtNRATIO.GT.l) GO TO 88 
XB=XM ( I * JA ) 

Y8=YM!I , JA) 

Z B= ZM < I , JA) 

GO TO 89 

88 XB=X!I> 

Y8=Y{ I) 

zB=zm 

89 NSW— .1 
NN= 1 
N= 1 

S I G N= 1 . 

J J = JA 

I F ( NPER.NE .4 ) GO TO 90 
85 IGN = 0 

I F C INDX-I.Gfc.NA) IGN = -1 
I FI INDX-I.LT .0) IGN * 1 
INOX = INOX + NA * IGN 
IF ! IGN.NE.O) GO TO 85 

I NDX L= (INDX-I) * NR + < ( J AC- 1 1 /NIB I * (NR/NROT) 

C 

90 RS=SQRT ( RT ) 

GO TO 100 

COMPUTE NV*G, TRAILING VORTEX CONTRIBUTION, OR ET A*H, SHED 

VORTEX CONTRIBUTION, L2 OR 02, AND ADO TO PREVIOUS CON- 
TRIBUTIONS FROM QUADRILATERAL FOR GAMMA! I, JA). 


100 RPR—RS+R ( NN ) 

DORL= ( XB-XC ) **2+! YB-YC ) **2 + ( Z8-ZC) **Z 
ASSIGN 94 TO IORGT 
W0RK1 =R ( NN) 

VTE ST=RS*R5+ WORK 1* WORK 1-DORL 

IF (VTEST.GT.O) GO TO 101 

W0RK2=RS-W0RK1 

W0RK2=W0RK2*WURK2 

W0RK3=RS+W0RK1 

WORK 3= WORK 3* WORK 3 

VTEST= ( WORK 3-DORL )*(DORL -W0RK2 ) / ( 4. *OORL I 
92 IF (SIGN.GT.O) W0RK1=A ( NANRM , J J ) 
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93 WORK 1 =WORK 1*W0RK 1 

IF ( VTE ST.GT. WORK l ) GO TO 101 
H0RG=0. 

W0RK5=S QRT < OORL )*W0RK1 
IF ( WORK 5. NE . 0. ) H0RG=1 . /WORK 5 
ASSIGN 95 TO IORGT 
GO TO 103 
101 HQRG=0. 

W0RK5=R(NN )*RS*(RPR*RPR-DQRL> 

I F ( W0RK5.NE.0, I HORG=S IGN*RPR/W0RK5 
103 EORNZ=( XA-XC)*( YC-YB)-I YA-YC)*< XC-XB) 

EHNGZ=EORNZ*HORG 
GO TO IORGT, (94,95) 

95 SIGM=1. 

IF ( EHNGZ.LT. 0. ) SIGM=-L. 

WORK l=GAMMA ( JZ , JA ) 

W OR K2 = E HN GZ * WORK 1 

IF 1 ABS( WQRK2) .GT.l . ) E HNGZ-S I GM/WQ RK 1 

94 SGMAZ =EHNGZ 
102 R ( NN )=RS 

GAMMA(1,J)S ARE UNKNOWN. IF 1=1, STORE S I GMA ( J , J S IG ) . 
THIS IS SIGMAt 1,PSI I, J, JSIG) 


GAMMA ( 1 , J ) ARE KNOWN FOR I. GT.l. COMPUTE VZ< 1,J). 

103 VZ ( 1 » J )=VZ( 1 »J )+( SGMAZ ) *GAMMA( JZ» JA) 

IF C NPER.NE.4) GO TO Hi 
SGMBL = SGMAZ 

CONVENIENT LOCATION TO COMPUTE SI GMA ( J , P SI 1 , 1 , J J ) 

DO 107 JQ= 1 , NTV 1 
MOO INX=INDXL+JQ 

107 SIGBLI MODI NX ) =-SGMBL*BFM( JB , 4Q ) + SIGBLI MOD I NX ) 

IF THE ROW IS NOT COMPLETED, STORE SGMAZ AND CONTINUE WITH VZ 
COMPUTATION. 

Ill R(NN)=RS 

134 RSQ=RT 

135 IF (I.LT.NANRM) GO TO 140 
IF ( I .LT.NWSTM1 ) GO TO 70 

140 RETURN 
END 
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OVERLAY ( WKOVL ,4,0) 
PROGRAM CONVG 


C 


INTEGER OUT,WKPT»CNTR 
INTEGER T45,WW 

REAL MXYZ,MU,MUALT,MUSpK,MUCAT,MUSAT,MUDP,MUSDP,LLNTH,LNTH,LOADN, 
1LTMP,LSQ,MX,MY,MZ,MUC0P ,MUS0S ,MUCOS , 10, MB ,LX,KXX 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

dimension 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


A( 05*44 I 

ALFAl(Ol) 

ALFA2I01) 

ALFAS(Ol) 

ALFAT(Ol) 

ALPHAOICll 

ALPHAR ( 01 ) 

AO 101) 

AR(Ol) 

6(005,40) 

BET A ( 03 ,1 ) 
CCLA101 ) 

CHORD (01) 

DELTA (01) 

DIR( 1) 

DNTH ( Oil, 040) 
GAMMA ( 05,040) 
GAMMAGI 360) 
GAMMK1I ,040 I 
INDXGl 40 ) 

10(01 ) 

KXX(OI) 

LNTHC 05,44) 

L X ( 0 1 ) 

MB ( 01 ) 

MUCDS ( 1 ) 

MUSDS { I ) 

NPSI ( 1) 

PSI (1) 

PSIR(Ol) 

RC Ap (01,11) 
R5MLL (01,44) 
RZERO( 1) 

SGMAK 044,044) 
SIGBL (360) 
SIGMZ( 10) 

V 1(01, 01) 

VX( 05 ,44) 

VY ( 05,44) 

VZ ( 05,44) 

WKX! 0 1 * 01 ) 

WKY (01,01) 
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DIMENSION WKZ(01« 01 ) 
DIMENSION X<05,44) 
DIMENSION XROT(Ol) 
DIMENSION XSIMQ(040,040> 
DIMENSION XX(Ol) 
DIMENSION YC05,44) 
DIMENSION YROT(Ol) 
DIMENSION Z 1 0 5 » 44 ) 
DIMENSION ZAP 1 40) 
DIMENSION ZROT(Ol) 


COMMON / I TRG/ ITRGX 

COMMON /BETA1/BETA,MBETR,NBETC»P I ,D»U» F, AS » AL PHA1, ALPHA 2, RO 
COMMON /BETA2/ XSIMQ,ZAP, NO JJ, Ml, DETERM 
COMMON /BETA3/OM t OMSQ,AO, AR,V,RHO,MU 

COMMON /TEST33/ NI B , NPOT , NW ,NBRV1 ,X , Y , Z , A , B, ONTH ,LNT H ,NAR ,NP ER , 

1 JSIGT »NWMK»J»NWMl»NI BV, VX» VY, VZ,NIBRV 
COMMON /TESY55/ JL » JS IG,NTV ,NTV1 ,M,nPS I , CHORD, RSMLL , RCAP, GAMMA , QSZ 
COMMON /WAKE1/ VOOMR,NUWKPT ,VI ,WKX, WKY ,WKZ,C0SB3 ,S INB3, NASI ♦ 
1NI3 NA,NWKLST,NWkRW,NWKCL,NLP1,NLP2,NLP3,NLP4,TW0PI 
COMMON /CONT/ NA , NR ,N ANR, JA ,J J, NN,N , S IGN, 1 1 , NGJR 
COMMON /CONVG A/ EPSG,NWKRQ 
COMMON /CONVGB/ S GMA1 , INDXG 
COMMON /CONVGC/ GAMMAG 

COMMON /HK2A/ MSET, GAMMK, IN DX , JAC , I NDXL, SGMAZ , S I GMZ , SGMBL 
COMMON /WK2C/ SIGBL 
COMMON /OUT IN/ IN, OUT 
COMMON /SUBIE/ NAS 

COMMON /STEPXA/ WKPT , WW , IOUT, NOT T PI ,KAT,NBC 

9B76 FORMAT (1H0, ( 8< 1X,GJ4.7 ) ) ) 

950 FORMAT (13H ITG DIVERGES, 2 I 5, 2E14.7 ) 

951 FORMAT ( 1 5 , El 2. 4, 31H GAMMAS HAVE CONVERGED MSET* ,110,/) 


COMPUTE NFW GAMMA! 1, J ) USING ITERATION SCHEME ON AN EQ OF THE 
FORM G=GL+GV+C*SUM< (SIG*G)) 

NGJ J*NGJR 
N= 1 
M 1*0 
I TR=0 

142 GDI*0, 

G=0. 

I TR* I TR + 1 
DO 145 J* 1 f NGjR 
GDIF=GAMMA ( 1 , J ) 

XK=0. 

DO 144 K * 1 , J S I G 
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144 XK=SGMA1( J,K)*GAMMA(1,K)+XK 

GAMMA* 1, J»-<GAMMKU » JI+XK-SGMAl ( J,J)*GAMMA( 1, J ) )/( 1 .-SGMAK J, J ) ) 
GDI = ( GDI F-GAMMA { 1 ,J))**2+GDI 

145 G=G*GAMMA{ 1, J )**2 
GTEST=GDI /G 

IF (GTEST.LE.EPSG) GO TO 150 

IF GAMMAS CONVERGE* CONTINUE, OTHERWISE ITERATE AGAIN UNLESS 
ITR EXCEEDS UPPFRLIMIT. 

146 IF (ITR.LT.ITRGX) GO TO 142 

148 WRITE LOUT, 950) I TR , I TRGX , GTE ST, EPSG 
IF (M1.EQ.1) STOP 
DO 152 J= 1 ,NGJR 
DO 152 K=l, JSIG 

152 XSIMQ( J,K)--SGMAUJ t K) 

DO 153 J = 1 » NG JR 

Z AP ( J ) =G A MMK (1 , J ) 

153 XSIMQ{J,J)*1. + XSIM0U,J) 

I TR-0 

Ml^l 

CALL MATINV 
DO 147 J= 1 , NGJR 

147 GAmMAU, J)=ZAP( J) 

GO TO 142 

GAMMAS HAVF CONVERGED 

150 WRITE ( OUT ,951) ITR, GTE ST, MSET 

WRITE (6, 9876 H (GAMMA! IX, JX) ,! X»1 ,N) , JX=l,NGJR) 

IF (NPER.EQ.44 GO TO 157 
RETURN 

157 DO 164 J= 1 ,NG JR 
M= INDXG( J ) 

164 GAMMAG(M) =GAMMA( 1 ,JI 

IF (NAS.EQ.WW+(NA/NIB)-1) WRITE (N0TTP1) (GAMMAGI J) ,J-1»NANR) 

IF (NAS .EQ. WW+( NA/N IB J-l ) WRITE (6,98761 ( GAMMAg ( J ) , J=1,NANR I 

RETURN 

END 
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OVERLAY ( WKOVL » 5,0) 

PROGRAM AL1RD2 
INTEGER OUT,WKPT,CNTR 
INTEGER T45»WW 

REAL MXYZ ,MU, MUAt_T, MtJSpK f MUCA T , MUSA T , MUDP »MUSDP , LLNTH, LNTH, LOADN* 
1LTMP,LSQ, MX, MY, MZ ,MUC PP, MUS DS »MUCOS, IO,MB,LX,KXX 


DIMENSION A LO 5.44 1 
DIMENSION ALFA1I01) 
DIMENSION ALF A2 ( n 1 ) 
DIMENSION ALF AS ( 0 1 1 
DIMENSION ALF AT (01) 
DIMENSION ALPHAO ( 01 J 
DIMENSION ALPHAR(Ol) 
DIMENSION AO(Ol) 
DIMENSION AR(01) 
DIMENSION ATMP(ll) 
DIMENSION 6(005,40) 
DIMENSION RET A{ 03 » 1 ) 
DIMENSION BTMPUl ) 
DIMENSION CCLAtOl) 
DIMENSION CHORD ( 01) 
DIMENSION OELTA(Cl) 
DIMENSION DIR (1 1 
DIMENSION ON T H ( 0 1 1 , 0 4 0 ) 
DIMENSION DSQ{ 040 ) 
DIMENSION OTMPt 040) 
DIMENSION GAMMA (05,0 AO) 
DIMENSION 10(01) 
DIMENSION KXX(Ol) 
DIMENSION LNTH (05,44) 
DIMENSION LSQ{ 044 1 
DIMENSION LTMP(044) 
DIMENSION LX(01) 
DIMENSION MB(G1) 
DIMENSION MUCDS(l) 
DIMENSION MUSDS(l) 
DIMENSION NPSI(l) 
DIMENSION PSI ( 1 ) 
DIMENSION PS IR (01) 
DIMENSION RC API 01, 11) 
DIMENSION PSMLLI 01,44) 
DIMENSION RZERO(l) 
DIMENSION THTAX(Cl) 
DIMENSION THTAY(Ol) 
DIMENSION VI 1 01 ,0 1) 
DIMENSION VX( 05,44) 
DIMENSION VY ( 05,44) 
DIMENSION VZ(05 ,44) 


DIMENSION WKX( 01,01) 
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DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


WKY(01» 01) 
WKZ (01,01) 
X (05, 44 ) 
XROT(Ol) 
XX(01 ) 
Y(05,44) 
YROT(Ol) 
Z(05,44) 
ZROKOl ) 


COMMON /BETA1/BET A, MB ETR, NB FTC, P I ,D »U» F, AS , ALPHA1, ALPHA2,R0 
COMMON /BETA3/0M,0MSQ,A0,AR ,V,RHO,MU 

COMMON /TEST33/ N IB f NROT, NW , n 8RV1, X , Y f Zt At B, DNTH » LNTH f NAR ,NPER f 
1 J S I GT , NWMK , J, NW Ml , NIBV, VX , VY , V Zt N IBRV 
COMMON /TEST55/ JL , J SIG ,NTV ,NTV1 , M, DPS I , CHORD ,RSMLL, RCAP , GAMMA , QSZ 
COMMON / WAKE1/ VOOMR , NUWKPT ,V I , WKX, WKY,WKZ , CO SB3, SINR3,NA SI » 
1NIBNA,NWKLST,NWKRW,NWKCL,NLP1 ,NLP2, NLP3 , NLP4 , TWOPI 
COMMON /CONT/ N A» NR t N AMR, J A »J J t NN ,N , S IGN 1 1 1 , N.G JR 
COMMON /AL1BDA/ ABK 

COMMON /SUBTB/ KX ,L SO ,DSQ ,OTMP , LTMP , ATMP , BTMP 

PERFORM FLOW PERIODICITY CHECK. IF NOT PERIODIC CHECK TIMF 

LIMIT (GO TO 446). IF PERIODIC CHOOSE ONE OR MORE OF <A) 
COMPUTE SIGS FOR BLADE LOADS ON BASIS OF SMALLER 
SPACING, (B) COMPUTE FLOW FIELD, NOT AT VORTEX END 
POINTS, AND f Cl OTHER . 


COMPUTE A( 1 , J ) , B ( 2 , J ) , Ul*J1f AND D(2,J) 


J J=0 
J S I G= 0 
NN=0 

151 JJ=JJ+1 

RT = LS Q( J J ) 

RS=SQRT(RT) 

LMTH( 1, J J ) =RS 
NN=NN+l 

IF (NN.GT.l) GO TO 158 
JSIG= JSIG+1 

154 RT=ABS(GAMMA(1, JS IG) ) 

IF ( JJ.LT.MIBRV) GO TO 155 
RS=SQRT(RT) 

GO TO 1 62 

155 RS=SQRT(RT) 

VORTEX CORE RADIUS IS CONSTANT TIMES CIRCULATION**.? 


6 ? 



156 A ( 1 * J J I =R S*ABK 
GO TO 151 

158 IF (NN-NTV) 160,159,162 

159 NN=0 

GO TO 154 

160 J SIG=JSIG+1 

RT=ABSIGAMMA< 1, JSIG)-GAMMAI 1, JSIG-1 ) I 
RS-SQRT ( RT I 
GO TO 156 

162 A{ 1,JJJ=RS*ABK 
JJ=0 

163 JJ=JJ+1 
RT=DSqC J J ) 

R S=SQRT CRT) 

ONTHI 2 » J J ) =R S 

RT = ABS( GAMMA { 1, JJ J-GAMMAI 2, JJ ) ) 
RS=SQRT(RT) 

B(2»JJ)=R S*ABK 

IF (JJ.LT.NGJR) GO TO 163 

RETURN 

END 



OVERLAY ( WKOVL , 6*0) 

PROGRAM APXLD 
INTEGER OUT , WKPT » CNTR 
INTEGER T45.WW 

REAL MXY Z , MU, MU ALT » MU S P K , MU C AT , M USA T , MUOP , MU S DP , L LN TH , L NTH, L OA DN 
ILTMP,LSO,MX,MY, MZ , MUCDP ,MUSDS ,MUCDS , I 0, MB » LX » KXX 


DIMENSION 

dimension 

DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
D IMFNSTON 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
■DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
D I MENS ION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
D IMENS ION 


AIDS , 44 ) 

ALE A 1 (Oil 
ALFA?! 01) 

ALE AS ID l ) 

ALE AT! o l ) 

ALPHAO (Cl ) 
ALPHAR101 ) 

AO! 01 ) 

AR(01 ) 

B( 005,4 0 
CCt A ( 01 ) 

CHORD (01) 
DELTA! 01) 

D I P. (1 ) 

DMTH! 01 1,040) 
GAMMA ( 05,040) 

lot on 

KXX(Ol) 

LNTH! 05,44) 
LOADN ( r 44 ) 

LX! on 
MB! 01 ) 

MUCDS ( 1 I 
MUSDS! 1 ) 

MPS I ! 1 ) 

PSI ( 1) 

PSIR! 01 ) 
RBAR(C40) 

RC AP ( 01 ,11) 
RSMLL (01,44) 
RZER0I1 ) 
THTAX(Ol) 

THT AY ( 0 1 ) 
VI(01,01) 

VX ( 05 , 44 ) 

VY ( 05,44) 

VZ ( 05 ,44) 

WK X ! 0 1 , 01 ) 

WKY (01,01 ) 

WKZ. (01,01) 

X (05 , 44 ) 

XROT (01) 

XX(01 ) 
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DIMENSION Y(05,44) 
DIMENSION YROT (01 I 
DIMENSION 1(05,441 
DIMENSION ZROT(Ol) 


COMMON /BFTA3/0M, OMSQtAO, AR ,V ,RHO,MU 

COMMON /TEST33/ NIB ,NR0T , NW ,N8RV I , X , Y , Z , A, B, DNTH, LNTH, NAR ,NPEP , 
LJSIGT ,NWMK, J,NWMl ,NI B V, VX , V Y, VZ , NIBRV 
COMMON /TEST55/ Jl , J S IG ,N TV ,N TV1 , M, D PSl , CHORD , R SMLL , RCAP, GAMMA ,QSZ 
COMMON / APXLOA/ R BAP 
COMMON /APXLDB/ LOADN 

COMMON /WK1 A/ P S I R , DP S I K, PS IK ,DE L T A , RR EE » MtJCDS, MUSDS , TH TA X , THT A Y 
COMMON / W K 1 C / PSI ,CCLA,DIR 

DEFINE APPROXIMATE BLADE LOADS 

NOND I ME NS I ON A L FORM= I R.H0*U*GAMMA ) / I RHO^OM^ON^R^R *R ) 

170 DO 180 M=1,NR0T 
DO 180 K=1,NIB 
P S IK=PS IR (M)+(K-1 )*DPSJK 
MUS PK=MU*S IN(PSI(M)+PSIK) 

J J=0 

DO 180 J = 1 , NTV1 
JJ=JJ+1 

LOADN (JJ)-(RBAR I J J) +MUSPK*D IR ( M) ) *G A MMA ( 1 , JJ) 

180 CONTINUE 

LOADN IS NON-DIMENSIONAL 
LOADD< J J )=LOADN( JJ ) *DELO D 

WRITE EITHER LOADN OR LOADD AFTER COMPUTATION, BUT DO NOT USF 
BOTH. LOADN ( J J ) AND VZIJ) COULD BE EQu IvALENCED. 


RETURN 

END 
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OVERLAY ( WKOVL ,7*0) 

PROGRAM WK3 

integer out,wkpt,cntr 
INTEGER T45 * WW 

REAL MXYZ t MUfMUALTt MUSPK, MUCAT *MUSAT , MUDP*MUSDP*LLNTH»LNTH*LOADN* 
lLTMP,LSQ»MX,MY»MZ f MyCOP ,M(JSDS ,MUCDS , IO,MB ,LX,KXX 


DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
0 1 MENS I ON 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENS ION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 


A( 05,44) 
ALFAUOI) 

ALE A2 ( 0 1 ) 
ALFASIOI) 
ALFAT(Ol) 
ALPHAO(Ol) 
ALPHAR ( 01 ) 

AO (01 ) 

AR(01) 

8(005 , 40 ) 

BET A < 03,1 ) 
CCLA(OI) 
CHORD(Ol) 
DELTA €011 
DIP ( 1 1 

DNTH{ 01 1 ,040 ) 
GAMMA (05*040) 

10 ( 01 > 

KX X ( 0 1 ) 

LNTH( 05,441 
LX (01 ) 

MB (01) 

MUCDS ( 1 ) 

MUSDS ( 1 ) 

NPSI ( I) 

PSI (1 ) 

PSIR (01> 

RC AP (01*11) 
RSMLL (0 1,44 ) 
RZERO(l) 

VI (01,01) 
VX(P5,44) 
VXXfOitOl) 

VY (05,44) 

VZ( 05 ,44) 

WKXI 01,01) 

WKY (01,01 ) 
WKZ ( 01 1 01 ) 

X( 05, 44 ) 

XPOT (01 ) 

XX( 01 ) 

Y ( 0 5 , 44 ) 

Y R 0 T ( 0 1 ) 
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DIMENSION Z(05,44) 
DIMENSION ZROT<01) 


COMMON /BETAl/BETA,MBETR,NBETC,PI ,0,U,F, AS, ALPHA!, ALPHA2,R0 
COMMON /BETA3/OM,OMSO,AO, AR ,V,RHO,MU 

COMMON /TEST33/ NIB ,NROT, NW,NBRV1 ,X »Y, Z, A, 8, DNTH, LNTH »NAR ,NP ER , 
IJSIGT,NWMK, JtNWMl ,NI B V, VX , V Y, VZ, NIBR V 
COMMON /TEST55/ J L, JS JG,NTV ,NTV 1 , M, DPS I , CHOR D, R SMLL » RCAP, GAMMA ,QSZ 
COMMON /WAKF1/ VOOMR , NUWKPT , V I ,WKX , WKY ,WKZ ,COSB3 ,S INB 3 , NAS 1 , 
1NIBNA,NWKLST, NWKRW, NWKCL, NLP1 ,NLP2, NLP3, NLP4 , TWGPI 
COMMON /CONT/ N A, NR , N ANR, J A , J J,N N,N , S IGN , 1 1 , NGJR 
COMMON /CONVGA/ FPSG»NWKRQ 
COMMON /WKCONT / NWKPD 

COMMON /STEPXA/ WKPT , WW , IOU T, NQTTP1 , K AT , NBC 
COMMON / WK4A/ VXX 

COMMON /OUTDI / NNTV,NEXPWK, NS IGRW,NMODR,NMODC 

COMMON /MODwKl / GAMMA Ml 54 ,161 *RM(1) ,AM(05,16) ,VXM*54,16), 

1VYMI 54*16) ,VZM( 54,16) ,XM( 54 ,16) ,YM( 5 4, 16) ,ZM( 54,16) 

COMMON /MOOCNT / N TVM , NWSTRE » NWR , NANRM, NI BRVM, NI BM 
COMMON /OUTDI I / NWKCLM 

DATA I NX l , INX2 , INX3, INX4, INX5 , TNX6, INX7/ . 

14H X,4H Y,4H Z,4H Vx *4.H VY, 4H . VZ , 4HS IGA/ 

DATA NWKX,NWKY,NWKZ/3HWKX,3HWKY, 3HWKZ/ 

LO AON ( J J ) COUL D BE LoADDlJJ) 

IF (NWKRQ.EQ. I. AND. NPER ,EQ.4) GO TO 192 
GO TO 189 
192 NLP1=1 
NLP 2= 1 
NLP3=NWKCL 
NLP4=NWKRW 
CALL T3A 

DO 136 JX= 1 » NWKCL 
DO 186 I X = 1 » NWKRW 

IF ( IX. GT.NWKLST. AND. JX.EQ. NWKCL ) GO TO 191 
VXX( IX, JX )=-VZ ( I X, JX ) *C OSB3 +VX ( IX , J X ) *SINB3 
186 VI (IX, JX) = VXX { IX , JXI + VI ( I X , JX) 

191 CONTINUE 

CALL MPRECT ( N WKY , VXX ,MWKR W , NWKCL ,NW KRW, NWKCLM) 

N AS1=NAS1+1 

IF (NASI .LT.N IBNA ) GO TO 188 
COMPUTE WAKE FLOWS 


VONA=NIB/( VOOMR*NA) 
DO 187 JX=1, NWKCL 
DO 187 I X= 1 , NWKRW 
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IF (IX.GT.NWKLST.ANO. JX.EO.NWKCL) GO TO 190 

187 Vl{ IX, JX) = VONA*VI UX, JX ) 

190 CONTINUE 

CALL MPRECT ( NWKX » VI * NWKR W» NWKCL t NWKRW »NWKCLM) 
KAT = 1 

188 NLP1=NR0T 
NLP2=NIB 
NLP3=NTV 


SET WAKE AZIMUTHAL INDEX LIMIT 

189 NLP4=NW 
NPER=1 
CALL T3A 
NPER=NWKPD 

IF (NWKPD.NE.4l GO TO 377 

CALL MPRECT C INX4 *VX , NW , N IBRVtNEXPWK , NNT V ) 

CALL MPRECT f INX5»VY»NW*NI0RV fNEXPWK »NNTV ) 

CALL MPRECT ( INX6,VZ»NW,N IBRV»NEXPWK,NNTV) . 

CALL MPRECT IINX1 ,X ,NW, N I BRV.NEXPWK, NNTV) 

CALL MPRECT I INX2 ,Y ,NW, N I BR ¥» NEXPWK, NNTV ) 

CALL MPRECT (INX3 ,Z,NW,N IBR V,!*SEXPWK,NNTV) 

CALL MPRECT ( I NX4 f VXM,NWSTR E* MI BRVM, NMODR , NMODC -k 
CALL MPRECT U NX5 ,VYM, NWS TR E * NI BRVN, NMODR , NMODC t 
CALL MPRECT ( INX6 »VZM f NWSTR E» N I BRVM, NMODR » NMODC. I 
CALL MPRECT < I NX 1,XM , NWSTRE iN I BRVM* NMODR » NMOD C) 
CALL MPRECT ( INX?,YM,NWSTRE ,N IBRVM.NMODR , NMODCI 
CALL MPRECT ( tNX3*ZM*NWSTRE »N IBRYWtNMODR * NMODCll 
377 CONTINUE 
RETURH 
END 
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SUBROUTINE T3 A 
INTEGER 12 

INTEGER OUT,WKPT,CNTR 

REAL MXY Z » MU t MU ALT, MUSPK, MU CAT, MUSA T , MUDP » MU SOP » LLNTH, LNTH, LOADN » 
1L TMp f LSQ » MX, MY, MZ , MUC DP ,MUSDS ,MUCDS 


DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
D IMENS ION 


A ( 0 5 » 

44) 


ALFA1 

(01) 


ALFA2 

(01) 


ALE AS 

(01) 


ALFAT 

(01) 


AOIOI 

) 


ARICI 

) 


B(0C5 

,40) 


CCL A ( 

01 ) 


CHORD 

(01) 


DELTA 

(0 1) 


DNTH ( 

Oil, 

040 

GAMMA 

(0 5, 

040) 

LNTH ( 

05,44) 

MUCDS 

( 1 ) 


MUSDS 

<1> 


PSIR ( 

01 ) 


RC. AP ( 

01,1 

1) 

RSMLL 

(01, 

44) 

VH01 

,01) 


VXI05 

,44) 


VY ( 05 

,44) 


VZ ( 05 

,4 4) 


WKX ( 0 

1,01 

) 

WKY ( 0 

1,01 

) 

WKZIO 

1,01 

) 

X( 05 , 

44 ) 


XROT ( 

01 ) 


YI05, 

44) 


YROT ( 

01 ) 


Z ( 0 5 * 

44) 


Z.ROT ( 

01 ) 



COMMON /TEST33/ NIB ,NR!TT, NW ,NBRV1 .»X ,Y, Z , A, B, DNTH,LNT H ,N AR , NPER , 

1JS IGT,NWMK, J, NWM1,NIBV,VX,VY, VZ.NIBRV 
COMMON /TEST55/ JL* JS IG,NTV,NTVl ,M, DPS I , CHORD, RSMLL , RCAP f GAMMA , QSZ 
COMMON /WAKFI / VOOMR , NUWKPT ,V I ,WKX , WKY ,WK Z ,COSB3 , SINB3 , NASI , 

IN IBNA,NWKLST, NW KR W, NWKCL, NLP1 ,NL P2, NLP3, NLP4, TWOP I 
COMMON / MODCNT / NTVM, NWSTRE ,NWR , NANR M, NI BRVM ,N I BM 
COMMON /MODWK 1/ GaMMAMI 54,161 ,RM( 1) , AMI 05 , 16 ) , VXM< 54 ♦ 1 61 ? 
1VYM(54,16),VZM(54,16) ,XM( 54,16), YM( 54, 16) ,7.M( 54, 16) 

COMMON /SUBIE/ NAS 

COMMON /WK2B/ X A » YA » Z A, XB » YB» ZB , XC, YC , ZC 
COMMON /0VT3A/ Z2,II 
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COMMON /0VT38/ IP OW , JAKM, K, L 
COMMON /0VT3F/ JPASS 


COMPUTE INDUCED VELOCITIES AT ALL VORTEX ELEMENT END POINTS, 
AND INCLUDING BLADE VORTEX POINTS. INCLUDE SELF-INDUCED 
EFFECTS DUE TO BLADE AND NEIGHBORING VORTICES (BASED ON 
APPROXIMATE CURVATURE FROM AN ARC DETERMINED FROM 3-POINT 
CIRCULAR ARC CURVE FITTING. 


INITIALIZE CONTROL CONSTANTS FOR WAKE INDUCED VELOCITY 
CALCULATIONS. 


N1=NLP1 
N2=NLP2 
N 3=NLP3 
N4=NL P4 
N 5=2 
N6= 1 

IF (NPER.EQ.4) N5=l 
DO 600 Z 2 = 1 » N 5 

IF { N AS.L E .N ANRM • AND.Z 2.EQ . 2) GO TO 600 

200 JJ=0 
J = 0 

J AND K HAVE REDEFINED FOR K>2 

IF (NPER.EQ.4) GO TO 201 
IF (Z2.EQ.1) GO TO 201 
N3=NTVM 
N4=NWSTRE-1 

IF ( NWSTRE • LT. NWR ) N4=NWSTR E 
N6=NANRM+ 1 

201 90 500 M= 1 , N 1 
DO 500 K= 1 , N2 

JAKM=(K-1 )*NTV+l + NTV*NIB*{M-U 
DO 500 L~1 *N3 
J = J + 1 

DO 500 I I=N6 , N4 
IF (Z2.EQ.2) GO TO 212 
IF (NPER.E0.4) GO TO 211 
X A=X { II, J) 

YA=Y( II, J I 
Z A=Z( II, J ) 

GO TO 220 

211 IF ( I I.GT.NWKLST.AND. J.EO.NWKCL) RETURN 
J AKM= 0 
X A=WKX( II , J) 
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YA=WKY( I I , J) 

Z A=WKZ ( 1 1 t J ) 

GO TO 220 
212 X A=XM ( 1 1 ♦ J ) 

YA=YM( II t J) 

Z A=ZM ( lit J ) 

VXM( 1 1 1 J) -0» 

VYMI I It J)=0. 

VZM( l It J1=0. 

GO TO 221 

POINT A IS POINT AT WHICH VELOCITIES ARE TO BE COMPUTEO. 

220 VX( II v J)*0. 

VY { 1 1 ,J) =0. 

VZ( II t J1 -0. 

C INITIALIZE VELOCITY COMPONENTS t INDICESt ETC. 

221 J SI G=0 

I ROW=NPER 
J PASS= J 
CALL T3AB 

IF (NAS.GT .NANRM J CALL T3ASPI VX, VYt VZ ) 

IF (Z2.E0.1) CALL ADVXYZ ( VXf II , J ) , V Y ( 1 1 , J ) , V Z ( 1 1 , J ) , TWGP I } 

IF ( Z2.EQ . 2) CALL AD V XYZ ( VXM( 1 1 , J ) t VYM { I.I , J ) t VZM( 1 1 , J ) t TWOPI ) 
500 CONTINUE 
600 CONTINUE 
RETURN 
END 
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SUBROUTINE ADVXYZ I VX f VY , VZ , TWOPI ) 

VX = VX /TWOP I 

VY=VY/TWOP I 

VZ = VZ/ TWOPI 

WQRK1=ABS ( VX ) 

WORK2 =ABS ( VY ) 

WORK3=ARS( VZ » 

W0RK4=AMAX1( WORK1 .WORK? tWOP K3 ) 

IF (W0RK4.LE..1 ) RETURN 
VX= C VX/W0RK4) *»1 
VY=IVY/W0RK4)*. I 
VZ=<VZ/W0RK4)*. 1 
RETURN 
END 



c 


SUBROUTINE T3AB 
INTEGER Z2 

integer out,wkpt,cntr 

REAL MXYZ * MU, MU AL T , MUSPK , MUCA T * MUSAT , MUDP , MU SUP , LLN TH, LNTH, LOADN , 
1LTMP,LSQ,MX,MY, MZ,MUCDP,MUS OS ,MUCOS 


DIMENSION A(05,44) 
DIMENSION ALFAl(Ol) 
DIMENSION ALFA2I01) 
DIMENSION ALFAS(Ol) 
DIMENSION ALFAT(Ol) 
DIMENSION AO (01 ) 
DIMENSION AR (01 ) 
DIMENSION ATMP(ll) 
DIMENSION B( 005 » 40 ) 
DIMENSION BTMP(ll) 
DIMENSION 0(09) 
DIMENSION CCLA(Dl) 
DIMENSION CHORD (01) 
DIMFNSION DEL T A ( 0 1 ) 
DIMENSION DNTHIOll ,040) 
DIMENSION DTMP( 040 ) 
DIMENSION GAMMA ( 05,040) 
DIMENSION LNTH( 05 ,44 ) 
DIMENSION LTMP( 044) 
DIMENSION MUCDS(l) 
DIMENSION MUSDS(l) 
DIMENSION PSIR (01 ) 
DIMENSION R ( 1 1 ) 
DIMENSION RCAP( 01 ,11) 
DIMENSION RSMLL (01, 44 ) 
DIMENSION SIGMX(IO) 
DIMENSION SIGMY (10) 
DIMENSION SIGMZMO) 
DIMFNSION VII 01 ,01 ) 
DIMENSION VX( 05,44) 
DIMENSION VY ( 05,44 ) 
DIMENSION V Z ( 0 5 , 44 ) 
DIMENSION WK X ( 0 1 , 0 1 ) 
DIMENSION WKY (01,01 ) 
DIMENSION WKZ (01,01) 
DIMENSION X (05,44) 
DIMENSION XROT(Ol) 
DIMENSION Y ( 0 5, 44 ) 
DIMENSION YROT ( 01 ) 
DIMENSION Z ( 05 , 44 ) 


DIMENSION ZROT(Ol) 


COMMON /TEST33/ N IB ,NROT, NW ,NBR VI » X , Y , Z , A , B, DNTH ,LNTH , NAR , NPER , 
1 JSIGT,NWMK, J,NWM1 ,NIBV,VX,VY, VZ,NIBRV 
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COMMON /TEST55/ J L * JS IG,NT V ,NTV 1 , M, D PS I .CHORD, R SMIL , RCAP »GAMMA ,QSZ 
C OMMON / WA KE 1 / VO OMR , NU WKPT , V I , WKX , WKY » WK Z , COS B3 , S I N B3,NA S 1 , 
lNIBNA,NWKLST,NWKRW,NWKCL,NLPi,NLP2, NLP3,NLP4,TW0PI 
COMMON /MODWK1Z G AMMAM( $4 1 16) , RM < 11 , AM ( 05 ,16 1 1 VXM{ 5A f 16) , 

1VYM1 54,16) ,VZMC 54,16) ,XM( 54,16) ,YM< 54 , 16 ) , ZM< 54 , 16 ) 

COMMON /WK2B/ X A, YA, Z A, XB , YB, ZB, XC, YC , ZC 
COMMON /VLIMIT/ VLT M{ 11 ) , VML I M( 16 ) 

COMMON /0VT3A/ Z2,II 
COMMON /0VT3B/ IROW, J AKM, K » U 

QSX=0. 

9SY=0. 

9SZ=0, 

DO 400 JA=1,NIBRV,NTV 
0X=0. 

QY=0« 

QZ = 0« 

JL= J A 

JSIGT=l+< { JA-1 )*NTV1 ) /MTV 

IROW CONTROLS BRANCHING TO SPECIAL COMUTATIONS REQUIRED FOR 
SELF-INDUCED VELOCITY CALCULATIONS, AND AVOIDANCE OF 
CALCULATIONS BY STANDARO EQUATIONS. IR0W=1, POINT A IS ON 
CURRENT ROW, SELF-INDUCED VELOCITIES ARE LINEAR, IR0W=2, 
POINT A IS ON NEXT ROW, IR0W=3, POINT A IS NOT ON CURRENT 
BLADES WAKE, BUT HAS NOT BEEN ACCOUNTED FOR, IR0W=4, 

POINT A HAS BEEN ACCOUNTED FOR, NO FURTHER CHECKS NEED BE 
MADE UNTIL POINT A IS REDEFINED. 

IF ( IR0W.GT.3) GO TO 213 

212 IR0W=2 

213 CONTINUE 
DO 390 I - 1 , NWM1 
J S I G= JS I GT 
SGMAX=0. 

SGMAY=0. 

SGMAZ=0. 

NN = 0 
JL = JA 

IF POINT A IS NOT ON CURRENT BLADES WAKE DO STANDARD 

CALCULATION, OTHERWIZE TEST FOR NECESSITY OF SELF-INDUCED 
VELOCITY COMPUTATIONS. 

1=1, START ON NEW BLADES WAKE 

214 IF II.GT.l) GO TO 280 

C CHECK TO SEE IF POINT A IS ON CURRENT BLADES WAKF 

215 IF ( J A- J AKM) 218,216,219 

C 11=1=1 AUTOMATICALLY REQUIRES SPECIALIZED SELF-INDUCED VELOCITY 

C CALCULATIONS. 

216 IF ( II.LE.l) GO TO 22 2 
21.7 I R0W=2 

GO TO 270 
218 I R0W=3 
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GO TO 270 
219 IR0W=4 

GO TO 270 

11*1*1. AND A ARE ON CURRENT BLADES WAKE 
COMPUTE RIJDS FOR FUTURE USE 
222 JL=J 

COMPUTE ADDITIONAL SELF- INDUCED QS7 COMPONENT DUE TO BLADE OR 
COMPUTE SHED VORTEX COMPONENT AT END OF WAKE. 

STATEMENTS TO BE ADDED 

CALL TEST5 
DO 224 JX = I. NTV 

224 R( JX)=ABS( RCAP(M T L)-RCAP(M, JX ) ) 

IF . INW.LE.2) GO TO 260 

COMPUTE SELF-INDUCED VELOCITY FROM TRAILING VORTEX ONLY CON- 
TRIBUTION. 

XB=X( 2» JL ) 

YB=Y( 2, JL) 

Z B=Z ( 2 * JL ) 

JSIG= JSIGT+J-JA-1 
IF ( JSIG. EQ. JSIGT-1) JSIG=JSIG+1 
XC=X( 3, JL) 

YC=Y( 3, JL ) 

ZC=Z( 3» JL ) 

IP1=I+1 
S I GN= 1 . 

GO TO 231 

C 1 1 =NW AND A ARE ON CURRENT BLADES WAKE 

229 IP1=I-1 

IF (IP1.EQ.0) GO TO 321 
XC=X( IP1, JL) 

YC=Y( IP) , JL) 

ZC=Z< IP1, JL) 

S IGN=-l . 

231 M X= ( Y A-YB ) *( Z B~ ZC )- ( YB-YC ) * ( Z A-Z B ) 

M Y= ( Z. A— Z B ) * ( XB-XC )-( ZB-ZC )*(XA-XB) 

MZ=(XA-XB)*( YB-YC )- ( XB-XC ) * (YA-YB) 

RT=MX*MX+MY*MY+M7*M7. 

IF (RT.EQ.O. ) R T=l. 

RS=SQRT < RT ) 

M XYZ = RS 

DELSQ=(XA-XC)**2+JYA-YC )**2+( ZA-ZC) **2 
W0RK1 -LNTH ( 1 1 JL ) *LNTH 1 1 PI » J L) 

W0RK1=W0RK1*W0RK1 
W0RK2=LNTH( I t JL )*LNTHU,JL) 

W0RK3=LNTH(IP1, JU*LNTHUP1 ,JL> 

WORK2=WORK2+WORK3-DELSO 
WOrK2=WORK2*WORK2 
RT=4. *W0RK1~W0PK2 
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IF t RT.LE.O . ) GO TO ?47 
RT=DELSO/RT 
RS=SQRT(RT ) 

RSCRP=2.*LNTH( I , J L) *L NTH ( I P l , JL ) *RS 
RT = LNTH( I , JL )#LNTH( I , JL ) 

RT=RSCRP*RSCPP-RT 
IF (RT.LE.O.) GO TO 247 
RS-SQRT(RT) 

WORKl -LNTH ( I , JL ) *LNTH ( I ,JL) 

WORK,2=LNTH( I P t J 1. )*LNTH(IP1 ,JL) 

CHOOSE DEFINITION OF FS M AL ACCORDING TO L ( T , J ) ** 2 . GE .DEL SQ 
H(IPl.J) **2 

IF ( WORK 1-DELSQ-WORK2 .GT. 0 } GO TO 238 
236 FSMAL*( RSCRP-RS )/LNTH( I , JL ) 

GO TO 240 

238 F$MAL“( RSCRP+RS ) /LNTH ( I ,JL ) 

240 RT=4.*FSMAL*RSCRP/A( I » J 1. ) 

C CHOOSE AND USE PROPER CIRCULATION VALUE 

IF (JL-JA) 243,244,242 

242 IF. (JL-JA-NTVl) 246,245,243 

243 STOP 

244 FSCRP-GAMMAJ I, JSIG) *( AL OG (RT ) +. 25 )/ < 2 . *RSCRP*MXYZ I 
GO TO 248 

245 FSCRP=-GAMMA( I » J S IG ) * (ALOG ( RT ) + . 25) / ( 2.*RSCRP*MXYZ ) 

GO TO 248 

246 FSCRP = (GAMMA< I, JS IG + 1 )-GAMMA( I, JSIG) ) * ( ALOG ( RT ) + . 2 5 ) /(2.4RSCRP* 

1MXYZ) 

GO TO 248 

247 F SCRP = 0. 

248 FSCRP=FSCRP#SIGN 

249 IF (II.GE.NW) GO TO 322 
QSX=MX*FSCRP 
QSY=MY*FSCRP 
QSZ=MZ*F SCRP 

263 CONTINUE 
260 DO 262 NX=l,NTVl 
C INITIALIZE SIGNS 

S I GMX ( NX )=0 . 

SIGMY(NX) =0. 

262 SlGMZ(NX)=0. 

I ROW= 1 

C AVOID COMPUTATION EHNGZ AT JL=J 

IF ( JL.EQ.JA ) GO TO 265 
JSIG= JSTGT 
JL = JA 
GO TO 360 

265 R ( 1 )=LNTH ( 1 , JL) 

NN= 1 
IPI=I+I 
GO TO 357 
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270 JL=JA 
NN-0 

272 XR=X<1,JA) 

YB=Y(1, JA) 

ZB=ZI 1 f JA ) 

RT=(XB-XA)**2 + {Y B—Y A ) **2+ ( Z B- Z A ) **2 
RS=SQRT(RT) 

RU)=RS 
275 J L= JL+1 
NN=NN+1 
nx=jsigt+nn-i 
XC = XB 
YOYR 

zozs 

X B= X ( 1 1 J L ) 

YB=Y{ l,Jt ) 

ZB=Z( It JL ) 

RT=<XB-XA)**2+( YB-YA)**2+< ZB-ZA)**2 
R S=SQRT ( RT) 

RPR=RS+R ( NN ) 

00RL=lXB-XC)**2+< YB~YC)**2+ (ZB-ZC)**2 
WORK 1 =R ( NN ) 

VTEST=RS*RS+W0RK1*W0RK1-D0RL 
IF IVTEST.GT.O) GO TO 276 
WORK2=RS-W0RK1 
WORK2=WORK2*WORK2 
W0RK3=RS+ WORK 1 
W0RK3=W0RK3*W0RK3 

VTEST={ W0RK3-D0RL ) *1 DORL -W0RK2 ) / < 4. *DQRL ) 
WORKl =CHORDI M ) 

W0RK1=W0RK1*W0RK1 

IF ( VTE ST . GT . WORK 1 ) GO TO 2 76 

H0RG=0. 

W0RK5=S0RT (DORL ) #W0RK1 
IFIWORK5.NE.O.) HORG= 1. /WORKS 
GO TO 277 
276 H0RG=O . 

W0RK5=R ( NN) *R S* { R PR*R PR-OORL) 

IF(WORK5.NE.O.) HORG=RPR/W0RK5 
277 EORNX=(XA-XC)*( YC-YB)-(YA-YC) *(XC-XB) 
EORNY=(ZA-ZC)*( XC -XB ) -( XA-XC) *{ ZC-ZB) 
E0RNZ=<Y4-YC)*< ZC-ZB)-< ZA-ZC) *( YC-YB) 

288 W0RK1=GAMMA(1 tNX) 

W0RK2=ABS( EORNX*WORK1*HORG) 

W0RK3=ABS ( E0RNY*W0RK1*H0RG) 

W0RK4=AB S ( EORNZ* WORK 1 #HORG ) 

W0RK1" AMAX 1 ( WORK 2 t W0RK3 t WOR K4 ) 

IF ( WORK! *LF. VLI M{ NN) ) GO TO 287 
S IGMXINN)— EORNX/WORKI *HORG* VI I M ( NN ) 

S I GMY ( NN ) =EORNY/WOR K1 *HORG*VL I'M ( NN ) 
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S IGMZ I NN ) = EORNZ/WORK 1 *HORG#VL IM(NN) 

GO TO 286 

287 SIGMX(NN) =EORNX*HORG 
S I GMY ( NN )=EORNY *HORG 
SIGMZ(NN)=EORNZ*HORG 
286 R ( NN+ 1 ) =R S 

IF (NN.LT.NTVl) GO TO 275 

CONTINUE COMPUTING BLADE CONTRIBUTIONS UNTIL BLADE IS COMPLETED 
THEN GO TO NEXT ROW. 

278 JL=JA 

IF 1 1 ROW-2 ) 350,280,360 

DO SPECIAL CALCULATIONS ONLY IF POINT A IS ON CURRENT BLAOES 
WAKE. 

280 I F( JA-JAKM ) 281,282,359 

281 I R0W=3 

GO TO 360 

IF POINT A IS NOT ON OR JUST DOWN THE WAKE FROM B OR C, DO 
STANDARD CALCULATION. 

282 IF III-I-l) 350,283,360 

IF POINT A IS NOT BEHIND POINT JL, DO STANDARD CALCULATION. 

283 IF (JL.NE.J) GO TO 360 

COMPUTE SELF-INDUCED VELOCITIES FOR I.GT.l 
COMPUTE SELB-INDUCED OS FOR TRAILING VORTICES 

284 JK = 0 
N = JL 

X8=X{ I, JL 1 
YB= Y( I, JL ) 

ZB=Z( I , JL I 

IF ( I I.GE.NW) GO TO 2 29 
LTMPI 1)=LNTH( I , JLI 
L TMP( 2 ) =LNTH( I I , JL) 

I Pi -1+2 
XC=X( IP1, JL) 

Y C=Y I IP1, JL) 

ZC = Z( I PI, JL) 

IP1=I+1 

ATMP( 1 )= A{ I, JL) 

285 MX- ( YB-YA ) *( ZA-ZC ) — I Y A— YC ) * (Z B~ZA ) 

MY-IZB— ZAI*C XA-XC )-( ZA-7C ) * (XB-XA ) 

MZ=(XB— XA)*(YA-YC )-(XA-XC )*<Y8-YA) 

rt=mx*mx+my*my+mz*mz 

IF (RT.EQ.O.) RT=1. 

RS=S0RT(RT) 

MXYZ=RS 

DELSQ=(XB-XC)**2+<YB-YC )**2+( ZB-ZC) **2 

W0RK3= <4.*(LTMP(1)*LTMP( 2) )**2-{ LTMPI 1 ) **2+LTMP ( 2 ) **2-DEL SQ ) ** 
12) 

IF ( WORK 3 . LE .0 ) W0RK3 = 5 .4E- 70 
RT=DELSQ/W0RK3 
R S=SQRT ( RT) 
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RSCRP=2.*LTMP( 1 ) *LTMP(2 )*RS 
289 RT=RSCRP**2-LTMp( 1)**2 
JK= JK+1 

IF (RT.LT.O.) R T= C. 

R S=SORT ( RT ) 

C COMPUTE FSMAL DEPENDING ON L f 1 ) **2 . GE . DEL SQ )L ( 2 ) **2. 

IF (LTMP( l)**2-OELSQ-LTMP( 2)**2.GT.O) GO TO 294 
292 F SMAL* ( RSC RP-RS ) / LT MP ( 1 ) 

GO TO 296 

294 FSMAL=(RSCRP+RS)/LTMP(1) 

296 RT=»4.*FSMAL*RSCRP/ATMP< I I 
COMPUTE TRAILED (JK=1,2) OF SHED <JK=3,4) CONTRIBUTION TO 

self-induced VELOCITY, 

GO TO (297,310,346,348), JK 

297 IF (JL-JA.LE.O) GO TO 300 

298 IF ( JL-J A-NTV1 ) 304,302,343 
300 IF (RT.EO.O.) GO TO 307 

FSCRP=GAMMA{ I , J S I G) *( ALOG ( R T) + . 25 ) 

GO TO 308 

302 IF (RT.EO.O.) GO TO 307 

FSCRP=-GAMMAU , jS IG)*(ALOG(rT ) + • 25) 

GO TO 308 

304 IF (RT.EO.O.) GO TO 307 

FSCRP=(GAMMA( I, JS 10 + 1 )-GAMMA( I, J S IG ) ) *( ALOG( R T ) + . 25 ) 

GO TO 308 

C COMPUTE CONTRIBUTION FROM NEXT TRAILEO VORTEX ELEMENT. 

307 F SCRP=0. 

308 ATMP{ I ) =A ( I I, JL) 

LTMP(3)=L.TMP( 1) 

LTMP( 1)=LTMP( 2) 

LTMP( 2)=LTMP( 3) 

GO TO 289 

310 IF (JL.LE.JA) GO TO 316 
314 IF (JL-JA-NTV1) 320,318,343 
316 IF (RT.EO.O. ) GO TO 32? 

F SCRP = ( F SCRP+GA MM A( II ,JSTG)*( ALOG( R T ) + . 25.) )/ ( 2 . *RSCRP*MXYZ ) 

GO TO 322 

318 IF (RT.EO.O.) GO TO 322 

FSCPP = (FSCRP-GAMMA( I I ,JSIG)*( ALOG( R T ) + . 25 ) )/ ( 2. *RSCRP*MXYZ ) 

GO TO 322 

320 IF (RT.EO.O.) GO TO 322 

FSCRP= ( F5CRP + ( GAMMA ( I l , JS I G+l ) -GAMMA ( 1 1 , JSIG) )*( ALOG ( RT) + . 2 5 ) ) / ( 
1?.*RSCRP*MXYZ) 

C DEFINE TRAILED VORTEX SELF-INDUCED VELOCITY COMPONENT. 

C CHECK SIGN OF FSCRP 

322 Q SX=M X*F SCRP 

qsy=my*fscrp 

QSZ=MZ*FSCRP 

321 IF (JL-JA) 323,323,340 

C COMPUTE NG WITH ONLY ONE VORTEX INCLUDED, JSIG 
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C COMPUTE FIRST CONTRIBUTION FROM SHED VORTICITY, 

323 JLM1=JL 
NN-1 • 

JL= JL+1 

J S I G1 =JS I G + 1 
JLPl=JL+l 
J K-0 
RT=l. 

324 ATMP< 1) = B( I I » J STG) 

X B=X ( I I, JL) 

Y8=Y{ 1 1 , JL ) 

Z. B=Z ( II » J L ) 

XC=X{ II, JLP1) 

YC=Y{ IltJLPl) 

ZC = Z( II , JLPl) 

LTMP( 1 I = DNTH( I I, JSIG) 

LTMP( 2) =ONTH< II,JSIG1I 

325 MX= ( ( YA-YB ) * { Z B-ZC ) - ( YB-YC ) *( ZA-ZB) I *RT 
MY=U ZA-ZB )*< XR-XC )-( ZB-ZC ) *< XA-XB) ) *RT 
M Z — •( ( XA-XB ) * ( YB-YC ) - ( XB-XO’M YA-YB 1 ) *RT 
rt=mx*mx+my*my+mz*mz 

IF (RT.EQ.O. ) RT-1 . 

RS=SQRT(RT) 

326 MXYZ=RS 

D EL SQ = ( X A-XC ) **2+ ( YA-YC )#*2 + ( ZA-ZC)**2 

RT= ( 4.*( LTMP( 1)*LTMP< ?) ) **2-( L TMPI 1) **2+LTMP ( 2 ) **2- 

10ELSQ ) **2 > 

IF IRT.LE.C) GO TO 337 
RT=DEl SO/RT 
RS=SQRT I RT ) 

RSCRP=2.*LTMP( 1 )*LTMP(2)*RS 
RT=RSCRP**2-LTMP( 1)**2 
IF (RT.LE.O.) GO TO 337 
RS=SQRT( RT) 

IF (LTMP( 1 ) **2-DEl SQ-LTMp ( 2)**?.GT .0) GO TO 334 
33? F SMAL = ( R SCRP— R S ) / LTMP ( 1 ) 

GO TO 336 

334 F SMAL = ( R SC RP+RS ) / I.TMP (2 ) 

336 RT=4.*F SMAL*R SCRP /ATM P( 1) 

IF ( I I.GE.NW) GO TO 338 

F SMAL:=GA MM A ( T I , JS IG ) - GAMM A ( I , J$ I G ) 

GO TO 339 

338 F SMAL=-GAMMAC I, JSIG) 

339 IF (RT.LE.O.) GO TO 337 

FSCRP=FSMAL*( ALOG(RT)+.25) /(2.*RSCRP*MXYZ) 

QSX=QSX+MX*FSCRP 

QSY=QSY+MY*FSCRP 

QSZ-QSZ+M Z*FSCRP 

337 IF IJL.EQ.JA+1) GO TO 343 
JL=JL+1 
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340 IF ( JL-JA-NTVl.LT.O) GO TO 344 

341 JL=JA+NTV1-1 
JLP1= JL-1 

R T=- 1 • 

JK= JK+1 
NN=NT VI 
JSIG1=JSIG-1 

GO TO ( 324,343, 324, 343) , JK 

C CHECK ON VALIDITY OF THIS TRANSFER WHEN JL=JA+NTV1 

343 I ROW= 1 
QX=QX +QSX 
OY=OY+QSY 
QZ=OZ+OSZ 

IF (N.LE.JA) GO TO 342 

C COMPUTE INDUCED VELOCITY FROM PREVIOUS TRAILING AND SHED VORTEX 

345 R(NN)=DNTH( I I, JSIG-1 > 

QX=QX+(SGmAX-STGMX(NN)) *GA m NA (I tJSlG-1) 

0 Y=OY+( SGMAY-SIGMYI NN ) ) *G AM MA < I , JS I G-l ) 

QZ=QZ + ( SGM AZ-S IGMZINN ) ) *GAM MA ( I,.JSIG-1> 

SIGMX(NN)=0. 

S IGMY ( NN 1 =0. 

SIGMZ(NN)=0. 

IF (NN.GE.NTVl) GO TO 3420 

cm=o. 

C 1 2 ) = 0 . 

C< 3) = 0. 

3420 X B=X ( II, JL I 
YB=Y( 1 1 * JL) 

Z B=Z ( II, JL) 

SGMAX=0. 

SGMAY=0. 

SGMAZ=0. 

NN=NN+1 

342 R S=DNTH{ I I ,'JSIG) 

IP1=I+1 

IF (N-JA-NTV1.LT .0) GO TO 379 
IF < N-JA-NTV1 . EQ. 0) GO TO 3 80 
WRITE (6,3444) 

3444 FORMAT (9H0342 HALT) 

STOP 

C COMPUTE SELF-INDUCED VELOCITY FOR POINT BETWEEN SHED VORTICES 

344 J LP1 = JL+ 1 
XC=X( II, JLP1) 

Y C = Y( II, JLP1) 

ZC=Z( II, JLP1) 

LTMP( 2)-DNTH(I I*JSIG+1! 

JLPi=JL-l 
XB=X( II, JLP1 ) 

YB=Y( II, JLP1 ) 

Z8=Z( II, JLP1 ) 
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ATMP( 1)=B( IlfJSIfil 
L T M P ( 1 ) - DNTH ( I I » J S I G ) 

JK=2 

GO TO 285 

346 IF UI.GE.NW) GO TO 3451 
FSMAL=GAMMA( 1 1 , JS IG l-GAMMA ( I» JSIGl 
GO TO 347 

3451 FSMAL=-GAMMA( I, JSIGl 

347 FSCRP=0. 

IF CRT.LE.O. ) GO TO 3471 
F SCRP=F SMAL* C A LOG (RTI+.251 
3471 LTMP(3) = LTMP{ 1) 

LTMPI ll=LTNP{2) 

L TMPC 2)~LTMP(3) 

JSIG=JSIG+1 
A TMPC II =8 C II t JSIGl 
GO TO 289 

348 IF UI.GE.NW) GO TO 3491 
FSMAL=GAMMA{ 1 1 » JSIGl -GAMMA t I, JSIGl 
GO TO 349 

3491 FSMAL=-GAMMA( I, JSIGl 

349 FSCRP=0. 

IF CRT.LE.O.) GO TO 3492 

F SC RP=C F SCRP + FS MA L* C 4 LOG C RT )+ • 25 ) ) / ( 2 • *R SCRP*MXYZ l 

3492 QSX=MX*FSCRP+QSX 
QSY=MY*FSC RP+QSY 
QSZ=MZ*FSCRP+QSZ 
JL=JL +1 

R { NN+2 ) = DNTH II I , J SI G ) 

C COMPUTE COMPONENT OF INDUCED VELOCITY FROM PREVIOUS TRAILING 

C VORTEX 

GO TO 343 

CALAULATE USUAL INDUCED VELOCITY COMPONENTS UNLESS JL=J, II=I 
AVOIDS RECALCULATION OF TRAILED VORTEX SELF-INDUCED VELOCITY 
COMPONENT. 

350 IF CJL.NE.J) GO TO 360 

351 SIGMX (1) =0. 

SIGMYl 11=0, 

SIGMZ<1)=0. 

R ( 1 ) = LN T H ( I * JL ) 

IP1=I+1 
NN=1 

GO TO 357 
354 X B= X ( I P 1 1 J L ) 

YB=Y{ I PI , JL) 

ZB=Z ( I PI » JL ) 

RT= l X A-X 8 )**2+(YA-YB )**?+{ ZA-ZB)**2 
DORL=DNTHC IP1 , JSTG)**2 
N = 4 

S IGN=-1 . 
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GO TO 365 

C RETURNS TO 370 

355 SIGMX(NN) =EHNGX 
S l GMY ( NN ) = EHNGY 
SIGMZ(NN)=EHNGZ 
QX=QX+SGNAX*GAMMA( I,JSIG) 

Q Y=QY +SGM AY#GAMM A ( I » JS I G) 

QZ=QZ+SGMAZ*GAMMA(I , JSIG) 

XK=35 • 

NN=NN+1 

IF (NN.EQ.NTV) GO TO 390 

356 JSIG=JSIG+1 
SIGMX(MN)=0. 

S IGMY ( NN ) —0, 

S IGMZ ( NN ) =0 • 

357 OORL=ONTH ( I PI , JSIG)**2 
XC=X< IPI, JL) 

Y C=Y ( IPI, JL) 

ZC=Z{ IPI , JL) 

R (NN) =LNTH< I,JL) 

JL=JL+1 
X B = X ( IPI , JL) 

YB=Y( IPI, JL) 

ZB=Z( IPI, JL) 

RT=( XA-X8)**2+< YA-YS) **2+< ZA-ZB)**2 
N=2 

I R0W=4 
S I GN= 1 • 

GO TO 365 

359 IR0W=4 

C BEGIN STANDARD TYPE ROW INDUCED VELOCITY CALCULATION. 

360 S GMAX=0 « 

SGMAY=0. 

SGMAZ=0. 

J L = J A 

XB = X( I , J L ) 

JSIG-JSIGT 
YB=Y ( I , JL ) 

ZB=Z ( I, JL) 

IP1=I+1 
XC=X( IPI , JL) 

YC=Y( IPI, JL) 

ZC=Z( IPI, JL ) 

NN=1 

R T= ( X A-XC ) #*2+( YA-YC ) **2+( ZA-ZC) **2 

DORL=LNTH( I,JL)**2 

N=1 

S I GN= 1 . 

365 RS=SQRT(RT) 

C IF (CNTR.EQ.2) GO TO 372 
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370 RPR=RS+R( NN) 

TEST FOR END OF VORTEX ELEMENT (POINT A) INSIDE CURRENT VORTEX 
ELEMENT CORF. DEFINE HORG DIFFERENTLY ONLY IF A IS INSIDE 
CORF OF B-C ELEMENT. 

WORKl =R ( NN ) 

VTEST=RS*RS+W0RK1*W0RK1-00RL 
IF (VTEST.GT.O) GO TO 371 
WORK 3 =RS+ WORKl 
W0RK3=W0RK3*WC!RK3 
W0RK2 =R S-WORK 1 
WOrK2=WORK2*WORK2 

V TEST* ( W0RK3-D0RL )*(CORL - WORK 2 ) / ( 4. *DORL I 
IF (SIGN.EO.O) STOP 
W0RK1 = CHQRD(M ) 

W0RK1=W0RK1*W0RK1 
IF (VTEST.GT. WORKl) GO TO 371 
H0RG=0 . 

W0RK5 = SQRT( DQRL) * WORK 1 
I F ( WORK 5 • NE .0 • ) H0RG=1. /WORKS 
GO TO 377 
371 HORG=0. 

W0RK5=R { NN ) *RS* ( R PR PR -DOR LI 
I F ( WORKS . NE* 0. ) HORG= S I GN«RPR/W0RK5 
377 EORNZ = ( XA-XC ) * ( YC -YB ) -{ YA-YC ) *<XC-XB) 

EORNY=(ZA-ZC)*< XC-XB )-( XA -XC) *( ZC-Z B ) 

EORNX=( YA-YC)*( ZC-ZB)-( ZA-ZC > * { YC-Y B ) 

EHNGX=EORNX*HORG 
EHNGY=EORNY*HORG 
EHNGZ=EORNZ*HORG 
381 WORKi=GAMMA< I, JSIG) 

W 0RK2=ABS ( EHNGX*W0RK1 ) 

W0RK3=ABS< EHNGY*W0Rk1 ) 

WDRK4=ABS( EHNGZ*WQRK1 ) 

WORKl =AM AX KW0RK2 ,W0RK3 ,W0RK4) 

IF (WORKl. LE.VLIM(NN)) GO TO 383 
EHNGX = EHNGX/ WORKl *V LI M( NN ) 

EHNGY=EHNGY/W0RK1*VLI MI NN) 

EHNGZ=EHNGZ/ WORKl *VLI M( NN ) 

383 SGMAX=SGM AX+EHNGX 
SGMA Y=SGM A Y+EHNGY 
S GMA7. = SGMAZ+EHNGZ 
385 GO TO (372,378,380,355) , N 

372 R (NN) -RS 
JL= JL+1 

IF (IROW.GT.?) GO TO 376 

373 IF (II-I-l) 374,375,376 

374 IF < JL.EQ.J) GO TO 354 
GO TO 376 

375 IF (JL.EQ.J) GO TO 284 

376 IP 1=1+1 
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' X B=X { IP1, JL) 

YR=Y{ IPl t JL) 

7 B=Z ( IP 1» JL ) 

RT=(XA-XB)**2+(YA-Y8>**2+( ZA-ZB) **2 

OORL = DMTHl I PI , JSIG)** 2 

N=2 

SIGN--1. 

GO TO 365 

C RETURN TO 370 

378 C ( 1 I =EHNGX 
C(2)=EHNGY 
C ( 3 ) = EHNGZ 

379 XC=X( I » JL ) 

YC=Y( I » JL I 
ZC=Zt I, JL J 
N=3 

OORL=LNTBf I.JU«2 
S I GN= 1 • 
fW=NN+l 
GO TO 370 

380 NX=NN-1 

QX=aX+(SGMAX~SIGMX<NXH*GAMMA U t JSIG) 

QY=OY+(SGMAY-SIGMY(NX )) *GAMMA( I, JSIG) 

0Z=07. + (SGMAZ-SIGMZ(NX) ) *GAMMA (I « JSIG) 

SIGMX(NX) =C( 1) 

SIGMY(NX)=C(2) 

SIGMZ(NX) =C(3) 

382 IF (NN.EQ.NTV) GO TO 390 
C CHECK NN INCREMENTING IN SPECIAL AREAS 

384 SGMAX=-E HNGX 
SGMAY=-EHNGY 
SGMAZ=-EHNGZ 
JSIG=JSIG+1 
XC=XB 
YC=YB 
ZC=ZB 
GO TO 372 
390 R(NN)=RS 

C ADO CURRENT BLADES WAKE EFFECTS TO INDUCED VELOCITY AT A. 

IF CZ2.EQ.2) GO TO 394 

393 VXtII ,J*=VX(II,J)+OX 
VY( II t J)=VY( II, J) +QY 
VZ( 1 1 » J I =VZ 1 1 1 ♦ J ) +QZ 
GO TO 395 

394 VXM( I I, J ) = VXM< 1 1 , J )+QX 
V YMJ I I , J ) = VYM ( 1 1 » J ) +QY 
VZMI 1 1 » J ) =VZM( 1 1 » J I +QZ 

395 DO 392 NN=1,NTV1 
S IGMX (NN ) =0. 

SIGMY(NN) =0. 
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392 SIGMZ(NN)=0. 
C(1)=0. 
C(2)=0. 

C ( 3 ) =0. 

400 CONTINUE 
RETURN 
END 
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SUBROUTINE TEST5 

REAL LBIG,LSMAL,LBSLS,LRSLSQ 

DIMENSION C(01) 

DIMENSION GAMMA ( 005 »Q4Q ) 

DIMENSION LSMALI11) 

DIMENSION RCAP(01,11) 

DIMENSION RSMAL < 0 1 1 44 ) 

COMMON /TEST55/ JL » JS IG.NTV ,NTV1,M, DPSI ,C»RSMAL »RCAP , GAMMA, QSZ 
GAMSUM=0. 

C3=3.*C(M) 

C34S0=C3/4, 

C 34SQ=C34SQ*C34SQ 
R JDPS T=RS MAL { M , JL ) *DP S I 
RJPSSQ=RJDPSI*RJOPSI 
TERM1=hH. /RJDPSI 
DO 1 1=1 » NTV1 

1 LSMAL(I)=ABS(RCAP(M, I+l J-RC APCM, I)J 
J X= JL 

6 IF (JX.LE.NTV) GO TO 7 
JX=JX-NTV 

GO TO 6 

7 JJ=Q 

NN=JSIG+NTV1-1 
DO 5 1 = J S IG * NN 
JJ=JJ+1 

IF (JJ.LT.JX) GO TO 2 
KX = JX 
N=JJ 
GO TO 3 

2 KX=JJ 
M=JX-1 

3 LBIG=C. 

DO 4 K = KX f N 

4 LrIG=LSMAL (KI+LBIG 

L BSLS=LB I G-L SMALI JJ ) 

LBSLSQ=LBSLS*LRSLS 
C 3L I42=C3/ (4.*LBIGI 
C3LI42=C3LI42*C3LI42 
RJOPLI=RJDPSl/LBIG 
R JDPLI=RJDPLT*RJDPLI 

5 GAMSUM=GAMMA( !♦ I) *AL0G< 

2 ( (l.+SORT(l.+RJDPLT))/ 

3( l.+SQRTI 1.+C3LIA2) > I* 

4( (LBSLS+SQRTILBSl S0+C34S0 ) ) / 

5( LBSLS+SQRT(LBSLSO+RJPSSO) I H+GAMSUM 
TERM1=TERM1*GAMSUM 
QSZ=QSZ+TERM1 
RETURN 
END 
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SUBROUTINE T3ASP < VX,VY,VZ) 

INTEGER Z2 

REAL MXYZ,MU,MUA1T,MUSPK, MU€AT»MUSAT t MUDP,MUSDP»LLNTH,LNTH,LOADN» 
1 L TM P , L S Q , M X , MY , M l , M UC 0 P , M U S 0 S , M UC D S 
C 

DIMENSION VLL ( 40) 

DIMENSION VX ( 0 5 » 44 ) 

DIMENSION VY{05,44) 

DIMENSION V7.( 05,44) 

C 

COMMON / MODCNT / NTVM ,NWSTRE , NWR , NANRM, NI BRVM, Nl BM 
COMMON /M0DWK1/ GAMMA (54,16), R M),A ( 05 , 16 ) , VXM { 54 , 1 6 ) , 

1VYM(54, 16) ,VZM( 54,16) ,X (54,16),Y (54,16),Z (54,16) 

COMMON / W K 2 B X XA , YA , Z A, XB,yB, ZB, XC, YC, ZC 
COMMON /VIIMIT/ VL I M{ 11 ) , VMLt Ml 16 ) 

COMMON /ELNTHS/ ELL(16) 

COMMON /Q VT3 A / Z? ,11 
COMMON /0VT3F/ J 
COMMON /VLNTHS/ M ALIM, VLL 
C 

C COMPUTE INDUCED VELOCITIES AT ALL VORTEX ELEMENT END POINTS, 

C AND INCLUDING BLADE VORTEX POINTS. INCLUDE SELF-INDUCED 

C EFFECTS DUE TO BLADE AND NEIGHBORING VORTICES (BASED ON 

C APPROXIMATE CURVATURE FROM AN ARC DETERMINED FROM 3-POINT 

C CIRCULAR ARC CURVE FITTING. 

C 

c 

c INITIAL IZF CONTROL CONSTANTS FOR WAKE INDUCED VELOCITY 

C CALCULATIONS. 

C 

IF (Z2.EQ.2) NS W1 =1 
NN= 1 

NWSTM1=NWSTRE-1 
EEL=VLL( JA ) 

TWOEL=EEL+EEL 
NSW=-1 
EL=ELL( JA) 

NANRX=NANRM 
JL=JA 
J S I G= JA 
0X^0. 

QY=0. 

QZ=0. 

W0RK1=XA-X( NANRM, JL) 
wnRK2=YA-Y( NANRM, JL ) 

W0RK3=ZA-Z (NANRM, JL) 

R SO=WORK I* WORKl + WORK2*WORK2+WORK3*WORK3 
R ( 1 ) = SQRT ( RSO ) 

IF (R(l).NE.O) GO TO 5 
NANRX-NANRM+1 
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IF (NANRX. GT.NWSTM1 I GO TO 400 
W0RKl=XA-X ( NANRX, JL ) 

W ORK2=YA-Y ( N ANR X , Jl ) 

W0RK3=ZA-Z ( NANR X, JL ) 

R ( 1 ) = SQR T I WORK 1 *W0RK1 +W0RK2#W0RK2+W0RK 3*W0RK 3 ) 

5 I=NANRX-1 

XR=X( NANRX » JL l 
YB=Y( NANRX »JL) 

ZB-ZI NANRX, JL I 
10 1=1+1 

IF (NWSTRE.GT.il. AND. I . FQ . I I . AND . J A . EQ . J ) GO TO 390 
C BEGIN STANDARD TYPE ROW INDUCED VELOCITY CALCULATION. 

IPi=I+l 

XC = X< I PI , JL) 

YC=Y( I P 1 » JL ) 

ZC=Z( I PI, JL) 

NRE TN=Q 

IF C ( II. EO. I. OR. I I- 1 . EQ. I ) • AND* J A.E Q. J . AND. Z2.fr0.2t 
1 CALL SELF IN ( I , I I , J A , OX, QY , QZ, NRETN ) 

IF (NRETN. EQ. 11 GO TO 390 
W0RK1=XA-XC 
W0RK2-YA-YC 
W0RK3=ZA-ZC 

RT=W0RK 1 #WORK 1 + W0RK 2*W0RK2+ WQRK3*W0RK3 
I F ( RT.GT. TWOELI GO TO 36? 

IF (RSQ.LT.FEU GO TO 364 
IF (RT.LT.EFL) GO TO 364 
N SW=0 
GO TO 389 

362 NSW=l 

I = I+NAL I M 
GO TO 389 

364 IF (NSW.LT.l) GO TO 363 
I = I -N ALIM ' 

NSW=-1. 

GO TO 390 

363 WORK 1=X8-XC 
W0RK2=YB-YC 
W0RK3=ZB-ZC 

QORL=WORK1*WORK1+WORK2*WORK2+WORK3*WORK3 

NSW=-2 

365 RS=SQRT(RT) 

370 RPR=RS+R( NN ) 

TEST FOR END OF VORTEX ELEMENT (POINT A) INSIDE CURRENT VORTEX 
ELEMENT CORE. DEFINE HORG DIFFERENTLY ONLY IF A IS INSIDE 
CORE OF B-C ELEMENT. 

WORKl=R(NN> 

VTEST=RS*RS+WORKl*W0RKl-DORL 
IF (VTEST.GT.OI GO TO 37 1 
W0RK3=RS+W0RK1 
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WORK3=WQRK3*WORK3 

W0RK2=RS-W0RKl 

WORK2=WORK2*WORK2 

VTE ST=( W0RK3-DQRL ) * f DORL -W0RK2 l /.(4«*D0RL I 
W0RK1=A( NANRM, JA) 

W0RK1=W0RK1*W0RK1 

IF (VTEST.GT.W0RK1) GO TO 371 

H0RG=0. 

WORK5 = SQR T ( DORL ) * WORK1 
IFIWORK5.NE.O.) HORG = l. /WOR K5 
GO TO 377 
371 HORG=0. 

W0RK5=R(NN)*RS*<RPR*RPR-D0RL) 

I F ( W0RK5 . NE .0 . ) HORG= RPR/ WO RK 5 
377 EORNZ= ( XA-XC) * ( YC-YB ) -I YA-YC) *1 Xc-XB ) 

E0RNY= ( Z A-ZC ) *( XC -XB )-< XA- XC ) *( ZC-Z B) 

EORNX= {YA-YC)*( ZC-ZB)-< Z A-ZC ) *■< YC-YR ) 

E HN G X = £ O R N X #H DR G 
E HNGY=EGRNY*HORG 
EHNGZ=EORNZ*HORG 
381 W0RK1=GAMMA( I, JSIG) 

W0RK2=ABS ( FHNGX*W0RK1 ) 

W0RK3=AB S( EHNGY* WORKl ) 

W0RK4=ABS( EHNGZ*W0RK1 ) 

W0RK1=AMAX1 IW0RK2 ,W0RK3 ,W0RK4 ) 

IF ( WORK l.LE.VMLIMIJSIG)) GO TO 383 
EHNGX = EHNGX/ WORK 1 *VML IM I J S T G) 

E HNGY =E HNG Y / WOR K1 *V ML I M I J S I G ) 
EHNGZ=EHNGZ/WORK I *VML IM( JSIG) 

383 W0RK1=EL/SQRT I DORL) 

SGMAX=EHNGX*W0RK1 
SGMAY=FHNGY*W0RK1 
SGMAZ=EHNGZ*W0RK1 
372 R ( NN) =R S 
X B=XC 
Y 8=YC 
Z B=ZC 

0 X=QX + ( SGMAX ) *GA MMA I I * JSIG) 

OY=QY + (SGMAV )*GAMMAI I, JSIG) 

OZ=QZ+ ( SGMAZ ) ♦GAMMA I I, JSIG) 

389 RSQ=RT 

390 IF (I.LT.NANRX) GO TO 391 
IF ( I .LT.NWSTM1 ) GO TO 10 

391 IF (Z2.EQ.2) GO TO 393 
VXI II ,J)=VX(II, J)+QX 
VY( 1 1 t J ) “VY< II, J)+QY 
VZ< II ,J)-VZU I, J)+OZ 
GO TO 400 

393 VXM( 1 1, J ) = VXM( I I , J )+0X 
VYM{ IT, J)=VYM( II, J)+OY 
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VZM( II,JI=VZM( lit JJ+QZ 
400 CONTINUE 
RETURN 
END 



SUBROUTINE SELFIN { I , 1 1 , J A , GX , QY,QZ , NRETN 1 

COMMON /MODCNT/ NTVM, NWSTR E ,NWR , NANRM, NI BRVM ,N 1 BM 

COMMON /M0OWK1Y GAMMA (54,16),R ( U , AM 1 0 5 , 16 ) , VXM( 54, 16) » 

IVYmI 54,16) ,V7M| 54,161 ,XM(54,16) ,YM<54,16) ,ZM(54,16> 

NRETN= 1 

A= AMI NANRM, JA I 
11=11 

IF (NWSTRE.EQ.il I 11=11-1 

IMl-Il-1 

IP1 = I 1 + 1 

X A=XM( II, JAI 

Y A=YM 1 1 1 , J A I 

ZA=ZM< 11, JAI 

X B=XM( IM1, JA I 

YB=YM( I Ml , JA ) 

ZB=ZM< IM1, JA) 

XC=XM ( I PI , JAI 
YC=YM ( I P 1 , JA I 
Z C= Z M ( IP1, JAI 

CALL POINTA ( JA,I ,A , JA, QSX , G$Y»QSZ» I I , X A , Y A, Z A, XB, YB , ZB, XC, VC, ZC , 
1 GAMMA! 

QX=QX+QSX 

QY=QY+QSY 

QZ=QZ+QSZ 

RETURN 

END 



SUBROUTINE POINT A { JL , I » A , J S IG, QSX f Q SY , QS Z , II » XA, YA, ZA,XB,YB,ZR, 

1 XC,YC,7.C, GAMMA > 

REAL LTMP(3),MX,MY t MZ,MXYZ 
DIMENSION GAMMA (54,16) 

COMMON /MODCNT / NTVM , NWSTRE , NWR , NANRM , NI 8R VM , NI BM 
IX = II 
JK=0 
N= JL 

WORK1 =XA-X B 
WQRK2=YA-YR 
WORK3-ZA-ZB 

LTMP( 1)=SQRT( WORKI*WOPKl+WORK2*WORK2+WnRK3*WORK3) 

WORKl=XA-XC 

WORK2=YA-YC 

WORK3=ZA-ZC 

LTMP< 2)=SQRT(WORKl*WnPKl+WORK2*WORK?+WORK3*WORK3) 

ATMP = A 

28 5 M X= ( YB-YA ) *( Z A-ZC ) - ( Y A-YC ) * (.ZB— Z A) 

MY=(ZB-ZA)*(XA-XC )-(ZA-ZC )*(XB-XA ) 

MZ=(xB-XA)*(YA-YC )-(XA-XC )*(VR-YA ) 
r,T-MX*MX+MY*MY + MZ*MZ 
IF (RT.EQ.O.) R T = 1 . 

R S= SORT ( R T ) 

M XYZ=R S 

DEL SQ= ( X B-XC ) **2 + ( YB- YC ) **?+( ZB-ZCI**2 

WORK3= ( 4 . * ( LTM p( 1 )*LTMP(2) )**2-(LTMP( 1 ) **2+LTMP ( 2 1 **2-OEL SO I ** 

12 ) 

IF (WORK3.LE.O) WCPK3=5 .4E-70 

R T=DELSQ/ WORK3 

RS=SORT(RT) 

RSCRP=2 • *LTMP ( 1 )*LTMP(2 )*RS 
IF (II. EO. NWSTRE) GO TO 306 
289 RT=RSCRP**2-LTMP( 1) **2 
JK=JK+1 

IF (RT.LT.O.) R T=0. 

RS=SQRT( RT } 

C COMPUTE FSMAL OFPFMDING ON L( 1 )**2 .GE .DEL SO ) L ( 2) **2. 

IF (LTMP( 1)**2-0ELSQ-LTMP(2 )**2.GT.O) GO TO 294 
29? FSMAL=(RSCRP-RS)/LTmP(1) 

GO TO 296 

294 FSMAL=<RSCRP+RS)/LTmPU ) 

296 RT=4.*FSMAL*RSCRP/ATMP 

C COMPUTE TRAILED (JK=1,2) CONTRIBUTION TO 

C SELF- INDUCED VELOCITY. 

GO TO (300,316) ,JK 
300 IF (RT.EO.O. ) GO TO 307 

F$CRP=GAMMA( I, J$!G)*( ALOG(RT)+.25) 

GO TO 308 

306 IX=II-I 

307 F SC RP=Q. 
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308 LTMP{3)=LTMP{ 1) 

LTMP< ll=LTMPI2) 

LTMPl 2)=LTMP( 31 
GO TO 289 

316 IF (RT.EQ.O.) GO TO 322 

FSCRP=(FSCRP+GAMMA( I X»JSIG) *1 ALOGf RT )+. 25) I / ( 2 • *RSCRP*MXYZ ) 
C DEFINE TRAILED VORTEX SELF-INDUCED VELOCITY COMPONENT. 

322 QSX=MX*FSCRP 
Q SY=M Y *FS CRP 
QSZ=MZ*FSCRP 
RETURN 
END 
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c 


c 


OVERLAY ( WKOVL » 10*0) 

PROGRAM STEPX 

INTEGFR OUTfWKPT *CNTR 
INTEGER T45 1 WW 

REAL MXY Z , MU» MU ALT » MUSp K» MUCAT »MUSAT » MUDP » MU SOP t LLNTH»LNTH» LOADN » 
1 LTMP » LSQ » MX t MY T MZ » MUC DP» MUSOS »MUCDS » IO t MB,LX,KXX 


DIMENSION A ( 0 5» 44 ) 

DIMENSION ALFAl(Ol) 

DIMENSION ALFA2I01) 

DIMENSION ALFAS(Ol) 

DIMENSION ALFATIOl) 

DIMENSION ALPHAO ( 01 1 
DIMENSION ALPHAR (01 ) 

DIMENSION AO(Ol) 

DIMENSION AR(Ol) 

DIMENSION B( 005 »40) 

DIMENSION BETA( 03 » 1 ) 

DIMENSION CCLA(Ol) 

DIMENSION CHORD (01) 

DIMENSION DELTA (Cl) 

DIMENSION DIR ( 1 ) 

DIMENSION DNTH( 0 1 1 » 040) 

DIMENSION GAMMA ( 0 5» 040) 

DIMENSION GAMMAS ( 360 ) 

DIMENSION 10(01) 

DIMENSION KXX(Ol) 

DIMENSION LNTH{ 05 »44) 

DIMENSION LX(01) 

DIMENSION MB ( 01 ) 

DIMENSION MUCDS( 1 ) 

DIMENSION MUSDS(l) 

DIMENSION NPSI(l) 

DIMENSION PSKM 
DIMENSION PSIP (0) ) 

DIMENSION RC AP ( 0 1 » 1 1 ) 

DIMENSION RSMLt (Cl, 44) 

DIMENSION R ZERO ( 3 ) 

DIMENSION SIGBLf 360) 

DIMENSION THTAX(Ol) 

DIMENSION THTAY(Ol) 

DIMENSION TM( 3, 3) ,TV( 3) t 0( 2 ),HH( 3) 
DIMENSION VHOltOl) 

DIMENSION V X ( 05 ♦ 4 4 ) 

DIMENSION VY ( 05 * 44) 

DIMENSION VZ ( 05 , 44 ) 

DIMENSION WKXt 0 1 » 01 ) 

DIMENSION WRY (01,01) 


DIMENSION WKZ(OltOl) 
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on o o on on 


D I MENSTON 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
D I MEN SI ON 
DIMENSION 


X (05 , 44 ) 
XROTI 01 ) 
XX(01 ) 
Y<05,44 } 
VROTICl I 
Z ( n 5 , 44 ) 
ZROTI01 ) 


C CMMON AS TPS Z/ NR AT 10 ,N AA , LRGWKS , L I MLSS, LSWW 

COMMON /BETA! /BET A, MR ETR , NB ETC ♦ P I ,D , U, F, AS , AL PHA1 , ALPHA2, RO 

COMMON / BETA3/0M, OMSO » AOt AR,V,RHO,MU 

COMMON /TFST33/ NIB ,NROT, NW,NBRV1 ,X ,Y , 2, A, B, DNTH,LNtH, NAR,NP ER , 
1JSIGT tNWMKt J»NWM1 ,NI B V, VX t V Y, VZ t NIBR V 
COMMON /TEST55/ J L , JS IG,NTV, NTV1 , M, D PS I , CHORD, RSMLL ,RCAP , GAMMA , 0 SZ 
COMMON /WARE! / VOOMr , NU WKPT ,VI , WKX , WKY ,WK7 »COS B3 »S INB3 , N AS1 , 

1 N I BN A , NW KL ST , NW KP W, N W KCL , N t P 1 , NL P 2, N LP 3 , NLP 4 , TWOPI 
COMMON ACONT/ NA , NR ,N ANR , J A , J J, NN,N , S IGN , I I , NGJR 
COMMON /SUB I E / NAS 
COMMON /WK1C/ PS I ,CCL A, DIR 

COMMON / WK1 A/ PS I R » DPS I K , PS IK ,DELT A, RREF , MUCDS » MUSDS, THTAX, THTAY 
COMMON /WKCONT/ NWKPO 

COMMON /STEPXA/ WKPT, WW , IOU T, NOTTPl , KAT, N BC 

COMMON /MODCNT/ NTVM , NWSTRE , NWR , NANRM, NI BRVM , N I BM 

COMMON /MODWK 1/ G AMMAMI 54 , 1 6) ,RM( 1) ,AM(05,16) ,VXM( 54,16) , 

1VYM( 54,16) ,VZM( 54,16) ,XM(54 ,16 ) ,YM( 54,16) ,ZM( 54, 16) 

COMMON /M0DWK3/ AEM ( 4 ,11 1 ,BF M < 4 , 10) 

COMMON /MUVXYZ/ TM ,TV ,DEL, VDT ,RC,CAP PH I , AO, AZ , YR , ZR , RP , I VAR 

COMMON /OUTD I / NNTV ,NEX PWK, NS IGRW,NMQOR, NMQDC 

COMMON / 0 U TO I I / NWKCLM 

COMMON /CONVGC/ GAMMAG 

COMMON /WK2C/ SIGBL 

COMMON /WK4A/ VXX 

COMPUTE NEW VORTEX ELEMENT END POINT LOCATIONS 

IF (NW.LT. NANRM) NW-NW+1 

IF { NWSTRE .LT.NWR ) NWSTPE=NW$TRE *1 

NWSTM1=NWSTRE-1 

NWM1=NW-1 

N VM2=NM00C 

IF (NAS.GE.LSWW) LR GW KS = L R G WK S + i 
IF (NAS. NE. LSWW) GO TO 416 

IN IT FOR SMALL STEPS 

FRATIO=FLOAT(NRATIO) 

DPS I = DPS I /FRAT 10 
NA=NAA 
M ANR=NA*NR 
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N I BNA=NA /NIB 

DEL=OEL/FRATIO 

VOT=VOT/FRATIO 

GO TO ( 4001 *4002 * 4003 ,4004 , 4005 )» I V Aft 

4001 CALL TURN { TV , TM, DEL , PC ,CAP PH I , AQ ) 

GO TO 4005 

4002 CALL ROLL ( TV , TM , AZ ,OEL * YP , ZR , VDT) 

GO TO 4005 

4003 CALL SUMPUP ( TV ,T M, DEL, RP ) 

GO TO 400 5 

4004 CALL STYCLB (TV ,TM, VDT, DEL ) 

4005 DO 5 M=1 , NROT 

MUCOS ( M ) = MUCDS (M)/FRATIO 
5 MUSDS (M)=M(jSDS(M) /FRATIO 

TRANSPORT FULL MESH 

416 DO 420 M=1,NR0T 

IF (IVAR.E0.5) TV{ 1 ) = MUCDS< M) 

IF (TVAR.E0.5) TV (3 )~ MUSOS ( M) 

DO 420 1 = 1, NWM1 
K=NW-I 
L=NW-I+1 
J=(M-1)*NIBV 
DO 418 J J= 1 , N I BV 
J = J + 1 

HH( 1 ) =X( K , J ) 

HH(2)=Y<K,J) 

HH ( 3) =Z( K, J) 

CALL GMPRD ( TM, HH ,0,3,3,1,9,3,31 
X ( L» J )=TV ( 1 ) + Q( 1 ) +VX ( K» J ) *DPS I 
Y ( L , J ) = TV ( 2 )+Q( 2 ) +VY ( K, J) *DPS I 

418 Z ( L* J )=TV ( 3 )+Q l 3 ) +VZ ( K, J ) *DPS I 
IF ( I .EQ. l-.OR. M.GT.l ) GO TO 420 
DO 419 N= 1 »NG JR 

419 GAMMA(L,N)=GAMMA(K,N) 

420 CONTINUE 

TRANSPORT MODIFIED WAKE 
IF (NAS.LT.NANRM) GO TO 560 

CALL MODCOX < NROT ,N I B ,NTV ,NTV M, A , AM , AFM, NEXPWK,NNTV, NMODR ,NANRM, 

1 NVM2 ,NA SI 

CALL MODCOR (NROT, NI B,NTV,NTVM, VX» VY,VZ , VXM , VYM, VZ M, AFM, NEXPWK , 

2 NWKCLM,NM00R,NANRM,NVM2I 
DO 550 M=1 ,NROT 

IF (IVAR.EQ.5I TV ( 1 )=MUCOS( M) 

IF { IV AR . E 0 • 5 1 T V ( 3 1 = MUSDS ( M) 

N WSTMF=NWSTR E-N ANRM 
DO 550 1=1, NWSTMF 
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K=NWSTRE- I 
L=K+1 

J = ( M- 1 ) *N I BM 
00 510 J J= 1 » N IBM 
J = J+1 

HH( 1 ) =XM{ K, J) 

HH( 2 ) =YM ( K » J ) 

HH ( 3) =ZM( K » J) 

CALL GMPRD ( TM, HH ,Q , 3 , 3 » 1 , 9 *3 , 3 ) 

XM{L,JhTVM)+Qm+VXHK,J) *DPSI 
YM( L, J)=TV( 2) +Q( 2 ) + VYM(K» J) *0PSI 
510 ZM(L, J)=TV(3)+Q(3 ) + VZM(K, J)*DPSl 
IF (I.EQ.i.OR.M.GT.l) GO TO 550 
DO 520 N= 1 * N IBR VM 
520 GAMMAMt L * N )=GAMM AM ( K » N ) 

550 CONTINUE 

CALL GMS ( NANRM, NROT, NIB, NT VM,BFM, GAMMA »GAMMAM,NTVl,NEXPWK, 

1 NS IGRW , NMODR, NMODC ) 

560 DO 441 M-1,NR0T 

441 PSI(M)=PSI(M)+DPSI*DIR(M) 

NAS=NAS+1 
IF (NAS.GE.NANRM) 

1C ALL MODCORINROT, NI B, NTV ,NT VM , X , Y, Z » XM, YM , ZM , AFM , NEXP WK , NNTV , 

1 NM0DR,NANRM,NVM2 ) 

IF (NAS.GE.NANRM+1) 

1C ALL MODCORINROT, NIB, NTVt NT VM,X,Y,Z ,XM,YM,ZM, AFM, NEXP WK, NNTV, 

1 NMODR , N ANRM-1 , NV M2 I 

OUTPUT BRANCH CONTROL 

START NEW COMPUTATION WITH NO OUTPUT IF NBC.EQ.l 

WRITE 16,3) NA S» NW, NWSTRB 
IF(NBC.NE.-l) GO TO 490 
WRITE (7,900) NAS, PSI ( 1) 

WRITE (7,901) (( X ( I ,J),Y( I ,K) ,Z(I ,K) , I = 1 , NW) , J = NTVM » N I BRV , NTVM ) 

900 FORMAT! 13, G14.4) 

901 FORMAT! 1 6F 5. 2 ) 

490 CONTINUE 

IF (NAS.GE.WW) NWKPD=4 
IF (NWKPD.EQ.4) NPFR=4 
I 1=0 

IF (KAT.EQ.l) STOP 

IF (NAS.GE.WW+NIBNA ) STOP 

IF(N4S.GT . (2*NANRM) .AND. NBC .FQ.-10) STOP 

IF! NBC. LE . 1 ) GO TO 440 

444 WRITE! I0'JT,90?) NW,NIBRV, ( ( X( I, J) ,Y( I , J) ,Z( I » J) ,1=1 ,NW) , J = l, 
1NIBRV) , P S I 

WRITE ( inUT,90?) NW, NGJR ,( (GAMMA! I , J) , 1=1 ,NW ) , J=1 ,NG J R) 

440 RETURN 
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3 FORMAT (30H0THE NUMBER OF WAKE POSITIONS 
902 FORMAT ( 2 13/ ( 8F 10 .7 ) ) 

ENO 


,3151 
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Machine Compatibility 

The Wake Geometry Program has been run on the University of 
Rochester's IBM 360/65 under MVT Release 18, General Computer 
Corporation's CDC 6600 under Scope 3.2, and NASA-Langley ' s 
CDC 6600 under Scope 3.0. The program is standard FORTRAN IV and 
is also WATFIV compatible. 

Recommended CDC 6600 Overlay Structure 

The recommended CDC 6600 overlay structure is that contained 
in this listing. For execution on an IBM 360/65 the overlay 
statements may be replaced by subroutines by the following types 
of statements: 

PROGRAM XXX by SUBROUTINE XXX 

and 

CALL OVERLAY ( 5LSKOVL , N , M , 6HRECALL) by CALL XXX 
where XXX is the appropriate subprogram or subroutine name. 
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PROGRAM MAIN 

C MAIN PKUGRAH BLD34 

DIMENSION COSARY (36) 

DIMENSION SN C$ I A ( 36 ) , SNCSIBt 36) , VS INK 10,36) 

DIMENSION SCTRMAUG ,36) 

DIMENSION A5SF( 20) ,ASSL( 20) ,ASST(20) 

DIMENSION VX( 18 ,37) ,WX( 18,37) 

DIMENSION CS I X ( 740 ) ,CSI A{ 740 ) ,CS 18(740) 

DIMENSION 01JMBD4( 4286) ,00M3D4< 0716) 

0 1 ME NS l ON S I GKJ A { 20 , 20 ) 

0 I ME NSI ON S I GK JB ( 2 0 , 20 ) 

DIMENSION S INE8 J ( 36 ) 

DIMENSION SINEJ (36) 

DIMENSION SAVE! 360) ,WBR (10,36) ,EL( 10,36) 

DIMENSION HOOK 10,36) ,PHI( 10,36) , THE K 10,36) 

D I M E N S I C N E L N T A 1 1 8 ) , E L N T 8 ( 0 1 ) , E M A A ( 1 8 ) , E M A S ( 0 1 ) , E I X A ( 1 8 ) , E I X B ( 0 1 ) 
DIMENSION tIZAI 18) ,EIZ8( 01 ) 

0 I ME NS I ON R 8 L (1 0 ) , R 8L A { 1 0 > , R8L B ( 1 0 ) 

DIMENSION XI NA (18) ,XINB(01. ) ,DPHA( 18) ,DPHB(01 ) , E I YA 1 18 ) , E IY8 (0 I ) 
DIMENSION UNKWN ( 360 ) , SV3( 360 ) 

DIMENSION E P A ( 1 8 ) , EPB( 0 1 ) , OLA* 18), OL 8(01), Z AA ( 1 8 ) , Z AB ( 0 1 ) 

DIMENSION w 00 T ( 10,36) ,WPHI( 10,36) ,WTHET ( 10, 36) 

DIMENSION FURCX ( 10,36) , EORCZt 10, 36) , EMOM£{ 1C, 36) , Y IN A ( 1 8) , Y INB ( 01 ) 
DIMENSION WFX( 10,36) ,WFZU0,36) ,WEMU (10 , 36 ) , BD1 ( 15 I ,302( 15) 
DIMENSION B I ( 10) , BEK 10) 

DIMENSION VDUT ( 1 8 , 3 7 ) , XDOT ( 18 , 3 7 ) » PH IDT ( 18,37) , S IDT ( 18, 37), 

1 CSIDTI 20,37) 

DIMENSION OMEGA ( 20 ) , S I GA ( 20 ) , AVA ( 18,20) ,AWA( 18 , 20) , APHI A ( 1 8 , 2 0) , 

1 ASIA(18,20) , ATHEA ( 1 8 , 20 ) , ATA ( 18 ,20 ) , AMZA 1 18, 20 ) , AVYA ( 1 8 , 20 ) , 

2 AMYA( 18,20) , AVZ A( 1 8 ,20 ) ,C S IOTA ( 1 , 36) 

DIMENSION OMEGB (20 ) , S I GB( 20 ) , AV6 ( 01 , 20) , AWB ( Cl, 20) ,APHIB( 01 ,2 0) , 

1 A SI 3(01 ,20) , A THE 8( 01 , 20 ) , ATB ( 0 1 , .20 ) , AMZB ( 0 1 , 20 ) , AV YB ( 0 1, 20) , 

2 AMYB( 01 ,20) ,AVZB( 01,20) ,CSIDT8( 1,36) 

DIMENSION DUMSDA ( 3404 ) , DUMSDB { 1 ) 

DIMENSION NACT( IO) ,N6CT( 10) , NBS Y ( 10 ) , JC YC i 1 0 ) 

DIMENSION NV8INT (10,36) 

C 

EQUIVALENCE (3D1(1) ,ZY) , ( BD1 (2) , THETA), ( BDI ( 3 ) , XROO A ) , 1 BD1 ( 4) , AKA ) 
l, (BDI (5) , ACA.) , (BDI (6), BCA) , (BO II 7) , I SEC A) , ( 60 It 8) , NRPTA ) , 

2 (BDI (9) ,CTA) , (BDI (10) ,ALPTA) , ( BJl ( 1 1 ) , E MT A ) , (BDI (.12) , AKIA) , 

3 (8D1( 13) , OM SQA ) ,( BDI ( 14) ,RA ) 

C 

EQUIVALENCE (302(1 ) ,ZQ) , ( BD2 (2 ) ,THETB) , ( 8D2 ( 3 > , XR008 ) , 

1 (8D2 ( 4) , AK B) , (BD2( 5) ,AC8) , (BD2(6) ,8C3) , (BU2( 7) ,1 SEC 8) , 

2(802(8) , NRPT B ) , (BU2(9),CTB) , (BD2( 10 ) , AL PTB ) , ( BD 2 ( 1 1 ) , EM TB ) , 

3 ( B D 2 ( 1 2 ) , AKIB) ,(BD2( 13) , QMS QB) , ( BD2 (14 ),R6) 

C 

EQUIVALENCE { DU M 804 ( i ) , EL NT A ( I) ) 

EQUIVALENCE (0QMB04(1), ELNTB(D) 
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EQUIVALENCE { OUMSOA ( I ) , VDOT (1*11 I 
C 

COMMON /OLD4X1/ ELNTA, EMAA, EIXA, RBLA, XINA, DPHA, E I YA , EPA, 

I OLA » ZAA, YINA, OMEGA, PSIRA, SIGA, AVA, AWA, APHIA, ASIA, ATHEA, 

2 ATA , AMZ A, A VYA , AMYA , AVZA, BOl, RWKA, CSALA, NMA , CSIOTA, 
3SIGKJA, OAMPCA 

COMMON /OUMDCM/ ELNTB , EMAB, EIXB, RBLB , XINB, OPHB, EIYB, EPB, 

1DLB, ZAB, YINB, OMEGB, PSIR8, SIGB, A VB , AWB , APHIS, ASIB, ATHEB , 

2 ATB , AMZ B, AVYB , AMYB, AVZB, B02 , RWKB, CS ALB, NMB, CSIDTB, 
3SIGKJB, CAMPCB 
COMMON/S AD3/CS I X 
COMMON /PUNCH/ NPCH 
COMMON /CIR/PI , TWO PI ,D I S 

COMMON /AI/ NBL , NB , NR, NW , NCV , NR2,MAXM0, N I T1 ,N IT2»N I T3 
I , C P 0 MG , I T 3 

COMMON / 10/ I N, NOUT • I T7» I T8 

COMMON /B3/ OS I , I J , KTEST , AMSNA , AMSN8, EMT Al , EMTB1,ALL I, ALL 2, RO AIR, 

1 RAi ,RB I, 6RRSV 
COMMON /SHEAR1/ NAS HER 

COMMON /BLD4X2/ WDOT , WPHI , WTHET , WFX , WFZ, WEMO, NMAS*NMOOE ,NAP SON, 

I NR 1 1 

COMMON / BLD4X3/ AMU,NA, NR l 

COMMON /BL03X1/ ALPT I, A LPT2 »CTl , CT2 , NRNTNA ,NRNT , UNKtf N ,SV3 , RBL , 

1 FURCZ , EMOME , HUOT, PHI , THET ,81 , BET » SAVE, WBR , EL,FORCX 
COMMON /SAD2/ VOOT ,XDOT , PHIOT,SIOT,CSIDT 
COMMON /GARY2/ XINPT,FINPT 
COMMON /SGSLS/ S I GLM,WBRLM 
COMMON /SAU6 / VX,NX 
COMMON/PRNT/NPRNT 
COMMON /VORTEX/ VBINT 
COMMON /MANV1 / SCTRMA 
COMMON /MANV2/ SNCSIA,FGF 
COMMON /MANV3/ NAIR 
COMMON /MANV4/ ASSF , AS SL ,ASST 
COMMON /M ANV 5/ ALFDTM, PHIOTM 

COMMON /VORINT/ N ACT , NBCT , NBSV ,CLMAX *DE LCL2 , WCQM,CMST2» JCYCLE , JC YC 
ItAPMAX 

ARRAY D I MENS ICN I NG VARIABLES 

NDUMRY=4 286 
NO OMR Y=7I6 
NCS I R Y= 740 
NS0BRY=3404 
NSNCRY-36 
NVBIRY- 10 

INI T A AND 8 ROTOR SWAP STORAGE 
EPSV-=0. 
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I SW=2 
ISW=1 

00 2384 1 = 1 » NDUMRY 
2384 0UMBD4 ( I )=0 . 

00 5000 I =1 ♦ NDGMRY 
5000 00MB04 < I ) = 0 . 

DO 2344 1 = 1 , NCS IRY 
C S I A ( I ) = 0. 

CS I B ( I ) =0 . 

2344 CSIX< I ) =0 . 

00 2389 I=1,NSD6RY 
C DUMSOBt 1 1=0 • 

2389 0U M SO A ( I ) =0. 

00 2390 1=1, NSNCRY 
SNC S I A ( I ) =0 . 

2 390 SNC S I B ( I ) =0. 

00 239 1 1=1* NVB IRY 
DO 2391 J = 1 » NSNCRY 
NVB INK I , J) =0 
2391 VBINT ( I » J ) = 0 • 

00 9934 1 = 1 » IMVBI KY 

9934 N ACT I I ) =0 

C 

1 N=5 
NOU T= 6 
IT7=8 

I T 8= 7 

C 

C READ MODEL PARAMETERS 

C 

READ UN, 899) 

READ ( IN, 900 ) NBL ,Ntt, NR » NA,NW ,NMA , NMB , KTE ST , NC V , NROT 

RE AO ( IN, 900 ) NIT1 ,NIT2 , N I T 3 » MAX MO 

READ UN, 900) NPCH , NPRNT ,NI F 

READ (IN, 900) NVORT X »N AIR 

READ ( IN, 901 ) AMU, ALU , ALL2 ,'ALL2R, AT I ME 

READ ( IN, 901) CPOMG, RUAIR 

READ (IN, 901) X I NPT * F IN PT 

READ ( I N ,90 1 ) SIGLM,WBRLM 

READ U N, 901 ) WCL IMB, ALFDTM, PHTDTM, ALFRM ,FbF 

IF( NVORTX.EO.l ) RE AO ( IN , 90 1 ) ( ( VB I NT ( I , J I , I =1 , NR ) , J= 1 ,NA ) 
IF(NVURTX.EU.l) REA0( IN ,900 ) JCYCLE 

IF( NVUKTX.EJ.il READ! IN, 901 ) CLMAX, QtLC L 2 , WOOM ,CMST2 , APMAX 
READ UN, 901) ( ASSF ( I ) , A5SL (I ) , ASST U ) , 1=1 , MAXMO ) 

C 

NRl=NR/2 

IF (NBL. E J. 1 ) NR1 =NR 
NR2=NK1+ 1 
NRNT=NR 
NAP S'JN = NA + 1 
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NR1 1=NK1+1 
NRN TNA=NRN T*NA 
NAOVT U=N A/ 2+1 
NROT=NBL 
NMA S = NMA 
NMOO£=M AXMO 
NAbHER-NAOVTO 
NC=NR 
C 

C WRITE OUT INPUTS 

C 

WRITE (NOUT * 859 ) 

WRI TE (NOUT ,9212 I 

WRI TE(NOUT,920) N8L,NB, NR , NA , N W »CPOMG , ROAI R, AMU 

WRI TE( NOUT, 924) ALL 1, ALL 2 

IF ( F I uPT. LT • 5. OR. F I NPT . GT . 1 . 0 ) FINPT=.;> 

WRITE (NOUT, 9216) S I ULH , W8RLM 

WRI TE (NOUT, 9217 ) WCL I MB, ALPDTM, PHI DT M, AL FRM, F3F 

IF{ NVORTX.EW.l ) WR I TFT 6*9218 ) { < VB INT( I » J) ,1=1 ,NR) , J=i,NA> 

I F (-NVORTX . EG • 1 ) WR 1 T E { 6 » 9C0 ) JCVCLE 

IFCNVORTX.FO.il WRI TEC 6, 200 I CLMAX , 0ELCL2, W00H,CMST2,APM'AX 
WRI Tfc (NOUT, 92191 ( I , ASSF ( 1 1 ,ASSL( ! ) , A SST { 1 1 ,1 =1 , MAX MO! 

WRI TE (NOUT ,9211 1 
C 
C 

PI=3. 1415926 
T WO P I =2 . * P I 
DS I=T WOP I /NA 
NRPl=NR+l 
NA.P1 =NA+i 
NWPI=NW+1 
I4=NA*NR 
I T3= t 
11=1 
I2=NRl 
JlP=i 
C 
C 

CALL INPUT! BI ,BET , I SEC A , NRPT A, ELNT A , E1X A, E LYA.X INA, Y INA, 

1 EMAA,DPHA,EPA,OLA,ZAA , AtPTA ,C TA , EMTA,OMSQA » AK.I A , THETA, XROOA, 

2 AK. A » RA » AC A, BC A * AT A, AM Z. A, AV V A, AMY A, AVZ A , AVA , AWA , APHI A , 

3 ASIA,ATHEA,SIGA,0MEGA,R3L»EIZA,RWKA,Il , 12 , NMA, PS IRA , DI RA, 

1 NA , NR 1 , NRNT , NM AS , NMO DE , NC , D AMPC A , S I UK J A ) 

C 

c 00 7326 1=1 , NMAS 

C 00 732 Z K= 1 , 3 

C7327 A PHI A ( I , K) =0 . 

C AVA ( I ,4) =0* 

C 00 7329 K= 5,6 

C 7329 APHI A ( I ,K)=0 . 
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C7326 CONTINUE 
C 

CALL OUTPUT ( THETA , XRL10A , AK A , AC A , BC A ,R A , C TA , ALPTA , EMTA , A KI A , 

1 OMSQA, BI , BET , EtNT A, EM A A, E 1XA , E IZA, X INA , V IN A, QPHA,E P A,ULA , 

2 ZA A » OMEGA , S IG A » AVA , AWA , APHI A , A S I A , AT HE A , AT A , AMZ A , AV Y A , AMY A, AVZA, 

3 R8L , El Y A , RWKA, 1 1 . 1 2 . NM A, P S IRA , D IRA , NR 1 , NMA S » NMGDL , NC ,0 AMPC A, 

4 SIGKJA) 

C 

C 

I F( NBL-2 ) 92 14*9213,9213 
9213 *.R I TUNUOT ,9215) 

1 1= NR2 
I2 = NR 
C 
C 

CALL INPUT! B I, BET, IS EC B, NRPT8, ELNTb , E 1X6 , E I YB , XI NB , YINB , 

1 EMAB »DPHB»EPB»DLB*ZAB» ALPTB ,CT B , EMT B»GMSQ6, AK I B, T HETB, XROOB, 

2 AKB, R B, ACB , 8CB »AT8 , AMZB » AVYB » AMYB » A VZB , AVB , AWB » APHI ts , A S I B » AT HE8 

3 , SI GB, OMtGB , RBL , E I ZB, RWKB, II, 12 ,NMB, PS IRB , D IRS , 

I NA ,NR I , NRNT , NMAS ,NMODE ,NC ,D AMPC B , S I GKJ6 ) 

C 

C DO 7330 1=1, NMAS 

C DO 7331 K= 1,3 

C7331 APHIB(I,K)=0. 

C AV3( 1 ,4) =0. 

C DO 7 33 3 K = 5,6 

C7333 April b( I ,K)=0* 

C 7330 CONTINUE 
C 

CALL OUTPUT ( T HET B, XROO B, AKB , ACB , BCb , RB , C TB, ALP TB , EMTB , AKIB , 

1 OMSUB.BI ,BET ,E LNTB , EMAB , E I XB, E I ZB, X INB, Y INB, OPHB, EPB.DLB, 

2 ZAB,OMEGB, SIGB, AVB, AWB, AP H I 6 , A S 1 8 , A THE B , ATB, AMZB, AVYB , AMYB , A VZB, 

3 RBL ,EIYB,RWKB, II, 12 , NM6 , PS I RB, D IRB, NR1 , NMAS ,NMODE ,NC ,OAMPCB, 

4 SIGKJ8) 

C 

C RECALCULATE SOME INPUT VALUES 

C 

9214 CNVRT=PI/180.0 

CALL C0NV ! CNVRT, THET A, ACA »BCA »ALPT A»OPHA » NMA, NMAS) 

WEAR A~W BARI AMU, ALP TA ,C TA ) 

WCL I M WCL 1 M B/ < CPOMG*R A ) 

ALFUTM=ALFDTM/CPCMG 
PHlDTM=PHIDTM/CPOMG 
ALFRM=COS ( ALFRM*CNVRT ) 

FGF=-FGF*32. 2 
AMSNA=AMU*S IN( ALPTA) 

CSALA=COS( ALPTA) 

AMC $A=AMU*C S ALA 
AMSNB=Q . 

C 
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IF IN3L.NE.2) GO TO 38 

CALL CONVICNVRT ,THETB,AC8,BCB, ALPTB, DPHB,NMB,NMAS) 
WBARB=WBAR I AMU, ALPTB »CTB ) 

AMSNB=AMU*S INI ALPTB ) 

C S4LS=CGS< ALPTB ) 

AM CSB= AMDOCS ALB 

COMPUTE DI STANCES L SUB I J ACCORDING TO FORMULA PAGE I 1 1 - 3 


38 IX1=NR*NBL 

C SI =-OSI *-DI R A+P SIRA 
SIN ALS-S INI ALPTA) 

DO 40 J=I,NA 
CSI=CSI+DSI *DIRA 
SINEJ (J)*SIN(CSI) 

COSARY I J) =CGS( CS I ) 

40 SNCSI A( J)=SINEJI J)*S INALS 

R8H I ) IS PETERS RBAR SUB I AND RWK l M, 1 ) IS PETERS R SUB M 

DO 50 1=1, NR1 

BE Tl I I =BE T 1 1 ) *CNVRT 

00 50 J= 1*NA 

SCTRMAI I , J) =-WCL IMB+RBL I I ) *■( ALFDTM*CUSAR Yt J ) +PH IDTM*S INE J< J ) * 

I ^LFRM) 

50 EL ( I , J)=USI’MRBL I I )+AMCSA*SlNEJ< J ) *OIRA ) 

IFINBL-l) 143,143,144 
144 CS I=— DS 1*0 I RB+PS IRB 
SINALS=SINt ALPTB) 

DU 55 J=1,NA 
CSI=CS I+OS I *DIRB 
SINE8JI J ) = S I NICSI) 

COS ARY I J ) = CuSl C S I ) 

55 SNCSIBI J)=SINE3J( J)*S INALS 
0-0 59 I = NR 2 , MR 
BET ( I ) = BET I I ) *CNVRT 
DO 59 J = 1 > N A 

SCTRMAI I ,J) =-«CL IMB + RBL I I ) * I ALFD TM*COSAKY I J ) +PH I DT M*S INEB J I J ) * 
1 ALFKM) 

59 ELI I , J)=DSI*IRBL( 1 ) + AMCSB*S I NEB J I J ) *Q IR B ) 

10 JIP = JJP + 1 

INITIALIZE COLUMN VECTOR OF UNKNOWNS FOR OVERALL ITERATION 

143 DO ICO J = 1 , I J 
100 SA VE I J ) =0 . 

ENTER OVERALL ITERATIVE SCHEME 
CALL AERODYNAMIC PORT ICcJ ( 6LD III) 
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KTEST = 0 BYPASSES READ OF SIGMA AND MU 
NNR1=NR 1 

CALL START (WBARA, AMU, ALPTA, BCA, AC A, AK I A, THE TA , 0 S I ,C SI A , 

1 BI »BET ,RBLf GMSQA* 1 »NNR1 ,AVA(NMA, 1 ) , CS 1 UFA , RA ,PS IRA.DIRA, 

I HOOT, PHI, THET,NA,NRNT) 

EMTA1 =EMTA 
R A 1 =R A 

IF ONLY ONE ROTOR IS USED GO TO 83 

IF ( NBL- 1)83, 83, 84 
84 NNR=NR 
NNR2-NR2 

CALL S T A RT ( W S AR B , AMU , ALPTB , BCB , AC6 , AKI B , THE TB , D S I , C S l B , 

1 SI ,BET ,RBL, QMS Q8, NNR2 , NMR, AVB1NMB, I ) ,C S IU TB ,RB , PS I RB ,D I R0, 
I HDD T ,PHI ,THET , NA » NRNT ) 

EMT Bl =FMTB 
R81=RB 
CT2=CTB 
ALP T 2 = ALPTB 
83 ZY = R A 
ZU = RA 

ENTRY POINT FOR NEXT ITERATION 

85 CT1=C TA 

ALPT1= ALPTA 
GO TO (2004,200 0) , ISW 
2004 CALL BLOB 
2000 CONTINUE 

ASSIGN CORRECT F ORCES FOR INPUT TO BLD4 

OU 93 1=1, NR 1 

DO 9 3 ,J = 1 , NA 

WFX ( 1,0 ) = F OR C X U,J » 

WF H I , J ) = F ORC Z ( I , J) 

93 MEMO ( I , J I = EMUME { I , J ) 

DO 93 i 1=1, NR 1 
31 RBLA ( I ) =RB L ( I I 
RER=0. 

CSQ=0 . 


ENTER GLU'+ WITH PaRmmuTlKS FUR FIRST ROTOR 


DO 2 3-45 1=1 , NO S I R Y 
2 345 CS IX ( I ) = C S I A ( I ) 

C 
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CALL BL 04 


C 

C ASSIGN CALCULATED VALUES FROM BCD A TO CORRECT ARRAYS 
C 

DO 2346 1=1 , NCSIRY 

kP.<=REK + (C S I X ( I ) -C S 1 A ( I J ) * { C S I X .( I ) -C S I A ( 1 1 } 

csQ=csix<n*csix(i)+cso 

2 346 C SI A ( 1 ) =C S i X ( I ) 

DO 94 1= i,NR 1 
DO 94 J = I , N A , 

HOUTI I , J ) = WDtJT I I » J > 

PHI I I » J ) =WP H I ( I * J ) 

94 T HE T ( l * J L=WT HET { I »J ) 

C 

C IF ONLY ONE ROTOR IS USED GO TO 85 
C 

IF ( NBL- I ) 9411,9411,86 

C 

C ASSIGN CORRECT FORCES FOR INPUT TO BLD4 
C 

86 DO 95 1 = NR 2 » NR 
DO 95 J=1 ,NA 
L = l -NR 1 

WFX ( L , J )=FORCX { I, J ) 

WF l ( L , J ) =F ORC Z(I,J) 

95 W E M 0 1 L , U ) = E NOME ( I , J ) 

00 951 I=NR2 , NR 

L=I -NR1 

951 R.UL B ( L ) =RBL ( I ) 

C 

C ENTER 8LD4 WITH PARAMETERS FOR SECOND ROTOR 
C 

DO 2347 1=1, NCSIRY 
234 7 CSIX < I ) =CS IB ( I ) 

DO 2387 l = 1 , NSDBRY 
TEMPX=D'JMSDA ( I T 
DUMSDAI I ) -DUMSDB { I ) 

2387 DUMSDB ( I ) - TEMP X 

DU 2386 1=1, NDUMRY 
TEMP X=DUMB 04 { I ) 

DUM8D4I I ) =00 MB 04 ( I > 

2386 DQMB04 ( I )=TEMPX 

DO 3 COO 1=1, NSNCRY 
T EMPX=SNCS I B ( I ) 

SNC S 18 ( I ) = SNCS I A ( I ) 

3000 SNCSIAU ) = TEMPX 
C 

CALL 8LD4 
C 

C ASSIGN CALCULATED VALUES FROM BLD4 TO CORRECT ARRAYS 
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00 2385 I = l , NDUMR Y 
TEMPX=DGM804 ( 1 ) 

DOM 80 4 ( I )=DUHR04( I) 

2385 CUMBD41 I )=TEMPX 

00 2383 1=1 ,NS08RY 
TEMP X=DUMSDA ( I ) 

DU MS DA ( I ) = D'JMSOB ( J ) 

2388 DUM SOB ( I ) =TEMPX 

DO 2348 I=1,NCSIRY 

RER=kE R+ (CS I X ( I ) -CS I B { I ) )*(CS IX ( I l-CSIB ( 1 ) ) 

CSQ=C$I X ( I )*CSIX(1 ) + C S Q 
2348 CS 1 6 { I ) = CS IX ( I ) 

00 3C 0 i 1 = 1 * NSNCRY 
TEMP X= SNC S I 8 ( I ) 

SNCS I 8 ( 1 ) = SNLS I A ( I ) 

3001 SMC SI A { I )=TEMPX 
1 1=0 

DO 941 I = NR2 , NR 
11 = 1 1+1 
DO 941 J = 1 * N A 
HOOT ( I, J)=WDOT( II, J) 

PHI ( I , J )=WPH1 ( I 1 , J) 

941 THET ( l , J ) = WT HtT 1 1 1 , J ) 

9411 EPSR=SOI'<T(RER/CSU) 

IF( IT 3- 3) 3028, 3026 T 3021 
3021 IF( EPSR.GT .EPSV ) GO TO 3030 
3026 EPSV=EPSR 

3028 WRITE (MOUT ,940) IT3,tPSR 

IF (EPSR.GT. ALL 2 R) GO TO 3010 
3030 I F ( I T3.EQ.1000) GO TO 4000 

1 T 3 = -500 

WRI TE ( .MOOT , 940) I T3 , EPSR 
3010 I T3= I T 3 

1 F ( IT3.GT.NIT3) IT3=1000 

940 FORMAT (./ *31 X , 5HI T3 = , 1 5 , 19 X , 18HR ESPONSE ERROR =,G15.6/) 

IFUT3.EQ. 100.0) GO TO 4000 
GO TO 85 

4000 IF (JIP.GE.NIP) STOP 

READ (IN, 901) THET 0 , AC , 8C 
THETA =C N VR T #TH E T 0 
ACA=CNVRT*AC 
BCA=CNVRT*BC 

WRITE ( NOUT , 4200 ) THET 0 , AC » 8C 
IF (NBl-1) 4010,4010,4005 
4005 READ UN, 901) THET0,AC,8C 
THE TB=CNVR TY THE TO 
AC(3=CNVRT*AC 
8C8=C NVRT *BC 

WRITE (NOUT, 4200) THE TO, AC, BC 
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4010 I T3=l 

00 1 I = 1*NCS IRY 
CS I A ( I )=0 . 

C SI B ( I 1=0. 

1 CSIX(I)=0. 

GO TO 10 
C 

200 FORMAT (10( IX, E12.5) /) 

899 FORMAT { 80H 

1 ) 

900 FORMAT (1615) 

901 FORMAT (8FIO.OJ 

9212 FORMAT ( 3< / ) , 48X , 37H0 YNAMIC RESPONSE OF HELICOPTER BLADES, 51 /)) 

920 FORMAT (1H , 5 IX, 18HNUMBER OF ROTORS= ,13,/, 

1 52 X , 18HNUM8 ER OF BLADES= ,13,/, 

3 40X , 30HNUMB ER OF RADIAL LOAD POINTS= ,13,/, 

4 39X » 31HNUMBER OF AZ IMUTHAL POS IT IONS= ,13,/, 

5 4 7X,23H NUMBER OF WAKE PGINTS= ,13,/, 

6 41X * 28H ROTATIONAL SPEED CAP QMEGA= ,F9.4,8H RAO/SEC ,/, 

7 5 3 X , 1 7 H A I R DENSITY RHO= ,F8.5, /, 

8 52X, 18HAD VANCE RATIO MU= ,F7.3) 

924 FORMAT (32X, 3 7HC0NVERGENCE ON TWO INNER ITERATIONS =£8.1/ 

1 37X , 3 2HC CN VERGE NCE ON OUTER ITERATION =E8.1,2(/) ) 

9211 FORMAT ( 1H0 , 48X , 29HBLAD E PROPERTIES- FIRST BLADE, 3 ( / » > 

9215 FORMAT ( 1H0 »48X , 3QHBLA0E PROPERTIES- SECOND BLADE, 3(/)J 

9216 FORMAT ( 39X , 31HL I MIT ON OFF-DIAGONAL SIGMAS = ,F7.4,/, 

1 3 5X » 3 5HL I M I T ON WAKE- INDUCED VELOCITIES = ,F7.4,//) 

9217 FORMAT { 14 HO CL I MB RATE = , E14.7/14H PITCH RATE = ,E14.7/ 

1 I3H ROLL RATE = , E14. 7/10H ALPHAR = ,L14. 7/ldH GRAVITY FACTUR = , 

2 El 4 . 7 ) 

9218 FORMAT I 32 HO VORTEX BLADE INTERACTION PH AS ES// I 8 E 15 ,6 ) 4 

7994 FORM AT ( 6HUFORC7. // ) 

7995 FORMAT (6H0FJRCX// ) 

7996 FORMAT ( 6H0E MG ME // ) 

9219 FORMAT ( 2X , 2H K,9X,5H ASSF,15X,5H ASSL,15X,5H ASST/ ( I 5 , 3E20. 10 /) ) 
4200 FORMAT < 20X , 3 { 2 X, Gi 5 . 7 ) ) 

END 
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SUBROUTINE INPUTIBI , BET , I SEC , NR PT , ELNTH , El X , E I Y , X INR, Y I NR« EMAS , 

1 DP HI , EPS, DLZ, ZA, ALPHT , CT , EMT ,UMSQ, AKI , THE TO, XRQOT »AKL ,R,AC ,8C , 

2 AT, AMZ ,AVY, AMY, AVZ,AV, Aid,APHl, ASI , ATHET , S I G, OMEGA ,RBL * El Z, 

3 RWK » I I , I 2 »NM» P SIR ,0 IR » NA ,NR I , NR NT , NMAS , NMQQE ,NC ,DAMPC , S IGKJ) 


INPUT READS IN BLADE PROPERTIES 


DIMENSION RBLI 10) 

DIMENSION SI OKU (20, 20) 

DIMENSION BI (10), BET (10), EL NT H( 18),EIX( 18),EIY(18I ,XINR( 13) , 

1 YI NR 1.18) , EM ASUS) ,OPHI( 18) , EPS < 18 ) , DLZ ( 1 8 ) , Z A( 1 8 ) ,CMEGA(2Q ), 

2 E I Z ( 18 ) » S 10 ( 20 ) 

DIMENSION A MY (18,20) ,AV( 18,20 ),.AW( 18,20 ),APHI (18,20), AS I (18 ,20), 
1 ATHET( 18,20) ,AT{ 18,20) ,4MZ( 18,2 0),AVY(13,20),AVZ(18,20) 

C 

COMMON /CIR/PI »TWCPI ,DIS 

COMMON / A1 / NBL , NB , NR , NW ,NC V ,NR2 , HA XMO, NIT1,NIT2,NIT3 
1 , C PCMG , I T3 

COMMON / 1 0 / I N , NO U T , I T7 , 1 T8 
C 

REALM IN, 901 ) ALPHT ,CT , EMT ,OMSQ , AK I , RWK 
READ (IN, 901) DAMPC 

RE AD (IN, 90 1 ) T HET 0 , XROOT , AKL, R, AC » BC , PS I R* P IR 
RE AD ( IN, 901 ) (Bid) ,1 = 11,12) 

Kt Al)( IN, 901) ( B ET( I ) , I = I 1 , I 2 ) 

DU 16 1=1, NM 

READ (IN, 900) ISFC,NRPT 

C BLADE PROPERTIES REPEATED AUTOMATICALLY IF NRPT= 1 

IE(NRPT) 15,10,15 

10 READ! IN, 902) ELNTH! 1 ) , E I X( I ) , E I Y ( I ) , E I Z ( 1 ) , X INR l I) ,Y INR( I) , 

] EMAS ( I ) , DPMI ( I ) » EP S ( I ) ,DLZ ( I ) , ZA( 1 ) 

GO TO 16 
C 

15 I Ml= I— 1 

E I X( I ) =E I X ( I Ml ) 

E I Y ( I )= E I Y ( I Ml 1 
E I Z ( I ) = £ l Z( I Ml ) 

YINR ( 1 ) = Yl NRCIMl) 

ELNTH ( I )=ELNTH( IM1 ) 

EMAS ( I ) =EMAS ( 1M1 ) 

X l NR ( I ) = XI NR ( I Ml) 

EPS 1 I ) = EPS ( I M L I 
DLZ ( 1 ) =DLZ ( I Ml ) 

UPHI < I MDPHI ( I M 1 ) 

L A ( I )=Z4( I M 1 ) 

16 CONTINUE 
C 

21 READ ( IN ,90 1 ) ($ IGiK ) ,K = 1*MAXM0) 
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DO 2.2 K= I t M AXMO 
RE AO ( 5 » 588 ) GMEGAI K ) 

DO 22 1=1, MM 

THIS READ COULD BE REPLACED WITH A ITS UNFGRMAT ED READ 

RE AD (5,5 88 > AV (I , K ) , AW ( I , K } , A '.PH. I ( I , K ) , AS I< l , K) , A THE T ( I ,K) , 
1 ATI I ,K) , A MZ ( I , K) , A VY ( I ,K) , ARY ( 1 , K 1 , AV Z C I , K T 
AW I I , K ) =- AW( I , K ) 

AVY ( I , K ) =-AV Y ( I,K) 

22 CONTINUE 

DO 25 K= 1 , M AXMD 
TWK=2.*OMEGA(K) 

T DA = 0 A M PC * A P H 1 I 1 , K ) 

DU 23 J= 1 » M AXMU 
SISKJIK, JJ =TDA*APHI II , J ) 

23 CONTINUE 

TS I G= S I G ( K ) 

SIG( K)=T$I G+SIGKJI K,K) / T.WK 
S I GK J I K , K ) = - T WK *T S I G 
25 CONTINUE 


REPLACE THIS READ WITH I T 7 


READ I 5,589) ( KB L ( I ) ,1=11,12) 
RETURN 
C 

900 FORMAT (1615) 

901 FORMAT (8F10.7) 

902 FORMAT { 10E8. 7) 

589 FORMAT-HOP A. 0.1 

588 FORMAT ( 5 1 G 1 2 . 7 , 3X ) ,/,5G15. 7) 

END 
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SUBROUTINE 0 U T P U T < T H F T 0 , X R U 0 T , A K L , A C » B C , R , C T , A L P H T , £ M T , 

1AKI ,OMSg,BI , BE T , ELNTH » FMAS , E I X , E U , XINR, Y I NR ,CPHI» 

2 tPS ,!)LZ ,Z A, OMEGA, S IG , A V , AW , A PH I » A .SI , A THE T , AT , A MZ ,AVY, AMY,AVZ , 

3 R8L ,EIY, RWK, Hi 12 ,NM, PS IR , D IR,NR1 , NMAS , NMOUt »NC»UAMPC, SIGKJ) 


PRINTS OUT BLADE PROPERTIES 


DIMENSION RBL(IO) 

01 M E N S 1 0 N S I G K J < ?. 0 , 2 0 ) 

DIMENSION B I < 10), BET! 10) ,£LNTH( 18) , E I X( 1 d) , E I Y( IB) , XI NR (18) , 

1 Y I NR (18) * EMAS( 18 ) ,0PHI<18.) , EPS(18),ULZ( 18 ) ,ZA( 18) , OMEGA! 20) ♦ 

2 EU( 18) » S l G { 2 0 ) 

DIME NS ION AMY ( 18,20) ,AV( 18,20) , AW! 18,20) , A PHI { 18,20) ,ASI ( 18 ,2 0) , 
1 ATIIETI 18,20) ,41(13 ,20) , AMZU8 ,20 ) , AVY ( 18,20) , AVZ( 18, 20 ) 

C 

COMMON /IQ/ IN, NOUT , IT7, IT8 

COMMON / A 1 / NBL ,NB *NR ,NW ,NCV , NR2 , MAXMO, N I T 1 , N IT 2 ,N IT3 
1 , CPOMG , IT 3 
C 

*RI TE INGUT ,0221 ) THE TO , X ROOT ,AKL,AC, BC, R,NM,PS IR, DIR 
WRITE (NOUT, 930) C T, ALPH T ,EMT , AK I ,OMSQ , RWK , DAMPC 
WR I TE ( NUIJT ,932) ( B I (I), I = II, 12) 

WRI TE ( NOUT , 93 3 ) ! BE T ( I ) ,1-11 , 12) 

WRITE (NOUT, 922) 

WRITE (NOUT, 925) (I, ELNTH ( I ) , E IX { I ) , E I Y ( I ) , E I Z ( I ) , X I NR ( 1 ) , Y INR ( 1 1 , 
1 EMASM ) , 0 P H I ( I ) , EPS! I ) , DLZ ( I ) , ZA1 I ) ,1 = 1 ,NM) 

WRITE (NOUT, 927) 

DO 5 K=l, MAXMO 

WRITE (NOUT, 929) ( S IGK Jl K , J) , J = 1 , MAXMO) 

5 CONTINUE 

WRI TE ( NOUT , 9 35 ) 

DO 2 7 K=l, ’MAXMO 

WRITE (NOUT ,936) K, OMEGA ( K ) , S £ G ( K ) , I i , AV ( I , K ) , Aw ( I , K ) , A PH IT I , K ) , 

1 ASK! ,K) , ATHE T ( I ,K) ,1 = 1 ,NM) 

27 CONTINUE 

WRI TE (NOUT, 9351 ) 

DO 2711 K= l, MAXMO 

WRITE (NOUT , 9361 ) ( I , AT { I ,K) , AMZ( I , K ) , AVY ( I ,K ) , AM Y ( I , K ) , 

1 A V Z ( I , K ) , I =1 , N M ) 

2711 CONTINUE 

WRI TE (NOUT, 940) ( R8L ( I > , 1=11 , 12) 

RETURN 

C 

940 FORMAT ( 2 1 / ) , 5oX , 1 7HBL A DE POINT RAO I I/I 6.E20 .5 ) ) 

9361 FORMAN 13X, I4,5E20.7) 

9351 FORMAT (5 (/ ) , 13X ,8H SECTION, I0X,1HT, 19X, 2HMZ , 1 7X , 3H- VY , 1 8X ,2HM Y , 

1 18X, 2HVZ ) 

935 FORMAT (1H1 , 59X , 1 2HNUR MAL MODE S/ 1 3 X , 7HSEC T ION , 1 OX , 1H V , 19X , 1HW , 
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1 18X t 3HPH I , 18X, 2HSI , 1 6X , 5HTH.E TA ) 

925 FORMAT ( IX, 13, 3X, F7 .4, 3X, 10E 11,4) 

922 FORMAT{3(/) , 57X,16HBLADE PRCPERT l ES// IX , 3H I , 4X , 6HL ENGTH, 6X, 

1 3HEIX, 8X,3HEI Y»8X, 3HE I Z , 8X , 2HI X , 09X , 2H I Y, 9X ,4HMASS» 7X , 9HDELTA PHI 

2 *2 X 1 7 HE PS I LON, 4X » SHOE LT A L Z , 4X , 2HZA/ 9X , 4HFEET , 7X» 3( 6HLB-FT2 * 5X) , 

3 3( 7HLB-SEC2 ,4X) ,7H0EGREES,4X,3 (4HFEET , 7X ) » /» 

4 42X ,3 (4HFEET , 7X } , 2< /) ) 

930 FORMAT! 46 X* 2 3HTHRUST COEFFICIENT CT 

1=F9. 5/43X,26HSHAFT AXIS ANGLE ALPHA S =F7.2 »8H DEGREES/ 

249X , 20HT IP MACH NUMBER MT =F9.4/64X, 5H< I =F7. 3/54X , 1 5H OMEGA SQUAR 

3 ED =F.8» 4 »/ ,50X , 1 9H3LADE POINT RADIUS- » F9 .5 , / » 

4 49X» 20HDAMP ING COEFF I CENT= ,F 12 . 5) 

933 FORMAT ( / 30X » 30 HBL ADE TWIST ANGLES IN DEGREES 3F 10. 5/1 60X.3F10. 5) ) 
9221 FORMAT ( 1H ,36X , 33il NQMI NAL PITCH ANGLE, THETA ZERO = ,F8.3, 

1 8H DEGREES ,/, 39 X, 30H0FF SET Or FLAP HINGE, X ROOT = ,F9.4, 

2 5H FELT ,/, 

3 40 X , 29H LAG DAMPING COEFFICIENT KL = , F9.2,15H FT LBS/RAD/SEC ,/, 

4 41X , 28 HCYCL IC PITCH AMPLITUDES AC = ,F7.3 , 8H DEGREES ,/, 

5 65X.4HBC - ,F7.3,8H DEGREES, /, 

6 53X, 16HR0TGR RADIUS R = ,F7.3,5H FEET,/, 

2 47 X , 23HNUMB ER OF MASS POINT S= ,13,/ 

34 5 X ,24HRQT0R REFERENCE ANGLE = , F7.3, BH DEGREES/ 

4 42 X , 27HRO TOR ROTATION DIREC TION - ,F3. 0/) 

932 FORMAT ( /4 LX , 19HSEM I CHORD LENGTHS 3F 10 . 5/ ( 60X, 3f 10 , 5) ) 

936 FORMAT ( 29X , 4HM0DE , I 3 ,4X , 9HF REGUENC Y , FI U .6 » 12 H R AD I ANS/ S EC , 5X , 

2 1 5 HD AMP ING SIGMA = F 10 . 6/<l 3X, 1 4 , 5£ 20 . 7) ) 

927 FORMAT ( /I OX , 1 7 HS I GK J ( K , J ) MATRIX/) 

929 FORMAT (2X, 16F8.2) 

END 



SUBROUTINE CUNVICNVRT, THE TO » AC » BC »ALPHT » QPHI »NM tNMAS ) 
DIMENSION OPHI ( 18) 

COMMON /Al/ NRL »NB » NR t NW »NCV »NR2» MAXMO» N IT 1 » N IT2*N I T 3 
1 »C POMG » I T3 

THETO=THETO*CNV RT 
AC=AC*CN VRT 
BC= BC#CNVRT 
AL PHT = ALPHT *CNV RT 
DO 30 1 = 1 » N M 

30 DPHII I) = DPHl U)*CNVRT 
RETURN 
END 



n n o 


FUNCTION W'l-lAKt AMU , A LPHT , C T ) 

WUR • RETURNS EITHER WEAR A OR wB ARB FOR USE IN SUBROUTINE START 

AM U C S = A MU * C 0 S ( ALPHT ) 

AMC $2=AMUCS*AMtjCS 

SQ 1 = SQR T ( A MC S2*AMCS2+C T*CT) 

V»8AR=SDRT t . 5 *1 S 0T- AMDS 2 ) ) 

RETURN 

END 
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SUbHOUT! NE S VAR I ( Wfi AR X , AMU , A L PUT , BC , AC . 4K I , T HEX 0 , DS I , C S I , 

1 til » B El » RB L , l! M SU , L , M , A V ,C S I D T , K , P SI R ,0 1 k ,HDOT ,PH I , THET , NA , NRNT > 

€ 

DIMENSION 81 (10 ) , BEK 10 ) ,RBL ( 10 I 

DIMENSION HDIJTI ID, 36) ,PHI( 10,36) ,THET(I0,36) ,CSI0T(1 ,36) , 

1CSI (20,37) 

C 

COMMON /Al/ N8L » NB , NR , NW , I4C V »NR2 , MA XMO, Ml T 1 ,NIT2,NIT3 
I , C P 0 Mi, , I T 3 

START SETS INITIAL VALUES FOR HOOT, PHI, THE T 
FNA=NA 

HO L 0 = WB AR X + AMU *A L PH T 
AMDS Q=A MU* AMU 

A0= ( . 26* ( 1. +AMUSW) *THE T0+ AM U* AC /3 . - . 25 * AMU*bC*B I (L ) -HOLD/ 3. + 

1 BET ( M ) *( . 2+AMUSQ/6. ) ) *AK I 
A I = ( < . 2 5 + . 1 2 5* AMU SQ ) * 6C + AC*B I ( L ) / 3 . ) *AK I 

BC I R= ( 2 • *AMU* THE TO / 3 • + ( .26+. 3 /a* AMUSO) * AC-BC*8I ( L ) / 3 .-. 5*AMU*H0LD+ 
1 . 5 * AMU * BET ( M ) )*4Kl 
C0= . 2 5* A K I 
C 1= AMU*AK I / 3 . 

DO-OMSQ-B I ( L ) *AK 1/ 3 . 

D 1=—. 5*AMU*8 1 ( L ) * A K 1 
02= . 25*AMUSQ*AK I 

fc T A 1 = ( ( DO - 1 . )*( BCIK*DO-Oi*AO )-( AI*D0-C1 *A0 ) *( ,5*D2-C0) ) / 

1 ( ( DO- 1. ) *{ Q0*( DO-1. )-. 5*Dl*Di)-( .5 *02-00 ) * ( DO* ( . 5 *D2+C0 ) 

2 -. 5*D1*C1 ) ) 

CSI 1 ■=( A I-Cl*AO/DO-( .5*02 + 00-01*01/ ( 2 .*00 ) ) *ETA1 )/( DO-1. ) 

CS 1 0= ( AO- . 5*D 1 *£ TA 1 ) /D 0 
DO 100 I=L,M 
SI--DSI *DI R+PSI R 
DO ICO J = 1 , N A 

si=si+dsi*dir 

SN= S I N ( SI ) 

CS=C0S(S1 ) 

HOOT (I, J)=RBL( I ) * ( 0 S 1 1 * SN- £ T A 1 *C S ) +,. 5 *8 I < L ) *( < AC-CS 1 1 ) *C S 
2 -( 80+ ETA 1 ) * SN ) -AMU*0 S*{ CS 1 0+C S I l*CS+£ T A 1*S N) 

THET ( I , J ) = T HET 0 +AC*SN+BC *0S 
PHI ( I , J) =0 SI 0+C SI 1*CS+ETA1 *SN 

IF (I .ED. l.OK. I .EQ.NR2) OSIDT( 1 , J ) =C P OMG * R* ( C S 1 1*SN-ETA1*CS ) / AV 
IF U .EQ.l.OR. I.E0.NR2) CS i ( 1 , J ) =-K*PHI (I, J )/AV 
HOOT ( I , J)=0. 

PHI ( I , J ) = 0 . 

CSI ( 1 , J) =0. 

100 CSI 0T( 1, J)=0. 

C 

WRITE (6,22) 

WRI TE ( 6, 200 ) ( ( THET ( I , J) , J = 1 ,NA) ,I=L,M) 

RETURN 
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c 

20 FORMAT! 6H0H00T , 

200 FORMAT ( 10( IX, £12. 5) 

21 FORMAT C oHOPHI , 

22 FORMAT ( 6H0THET , 

23 FORMAT (6H0CSI0T//) 
9876 FORMAT ( 1H0, 6E15.7) 

END 


//) 

,/) 

//) 

//) 
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SUbROUT I NE H ARMN ( N.M , M A , DS I , F , MTYP , NMAS , NROW » NCOL ) 
C 

DIMENSION A ( 18, 19) t Bl 18, 19 I , F (NROW, NCOL ) 

C 

WRITE (6, 900) 

NCNT=1 
NAP 1-NA+ 1 
NAU2=NA/2 
N5=NA02/5 
N5T10=(NAU2*10) /5 
IF ( N5*10-N5 T 10 ) 1000, 1010, 1000 

1000 N5=N5+1 
1010 CONTINUE 
ANA=N A 
T=2. /ANA 

GO TO ( 1,2,3,4,5,61 , MTYP 

1 WRITE (6, 901) 

GO TO 6 

2 WRITE (6., 902) 

GO TO 6 

3 WRITE <6, 903) 

GO TO 6 

4 WRI TE ( 6 ,904 ) 

GO TO 6 

5 WR1TE<6»905) 

6 CONTINUE 

00 240 L=1,NM 

00 200 N= 1 , N A02 
A ( L , N ) = 0 

8 < L , N ) = 0 
M = N-1 

DO 100 K=1 ,NA 
AKOSI-I K- 1 ) *M*0 S I 
C=C0S ( AKDS I ) 

S = SIN(AKDSI) 

A ( L , N ) = A { 1 , N ) +C*F ( L » K ) 

6 1 L , N ) = B ( L , N ) +S #F ( L , K. ) 

100 CONTINUE 

8 ( L , N ) - T*B(l,N) 

200 A ( L » N ) = T * A ( L , N ) 

240 AIL, I) = .5*411,1) 

270 CONTINUE 
NG2=0 
NGRP=0 

WRITE <6, 906) ( N , N = 1,51 

WRITE. <6, 90S) 

210 NGRP=NGRP+ 1 
NG1=NG2+I 
NG2=5*NGRP+l 

1 F i NG kP-N 5 ) 220 , 215, 300 
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215 NG2=NAU2 

220 IF! NGkp-1 ) 250,250,260 
250 00 255 1=1 » N H 

2 65 WRI TE ( 6, 91 01 I , A ( I , 1 ) , ( A ( I ., ) , < T , K) , M~ , , ,. v j 

00 TO 210 
260 N X 1 = NG 1 - 1 

iMX2=NG2-l 

IF (NGl .EQ.NG2 ) GO TO 300 
wRI TE ( 6 , 90 7 ) ( N , N = NX l , NX 2 ) 

WRITE! 6,909) 

00 265 1=1, NM 

265 WRI TE ( 6 , 91 1 > I , (A! I , N) » 3 { I , N ) ,N=NG1 ,NG2 1 
GO TO 210 
300 CONTINUE 

IF (NCNT.GT.O) RETURN 
00 86 1=1, MM 

00 86 N=1 , N A U2 
U= A ( l , N ) 

V = 8 { I , N ) 

80 G=SQRT { U*U+V*V) 

ARG= 0 . 

1 F ( G . EQ .0 . ) GO TO 85 
ARG=A TAN2 ( V , U) 

85 B ( I , N ) = ARG 

86 A ( I » N ) =G 
WRITE (6,920) 

NCNT = NCNT * 1 

IF ( NCNT . LT .21 GO TO 270 
RETURN 
C 

900 FORMAT ( 1H , 3 (/) ,5 7X , 17HHARMCNIC ANALYSIS ) 

901 FORMAT ! 31/) , 60X , i IHLEF T TORQUE) 

902 FORMAT (3 (/ ) ,59X, 13HLEFT Z MOMENT) 

903 FORMAT! 3( /) ,59X,13HLEFT Y SHEAR ) 

904 FORMAT! 3! /) , 59X, 13HLEFT Y MOMENT) 

905 FORMAT ( 3 (/ ) , 59X , 13HLEFT Z SHEAR ) 

906 FORMAT! 2!/) , 8X,5HN = 0 ,3X , 5 ( 9X , 3HN =12, B X I ) 

907 FORMAT ( 2 ! / ) , 8X , 5 ( 1 7X, 3HN =12)) 

908 FORMAT (5H I ,5X ,1 HA, 5 ( 1 1 X , 1 HA , 10X , 1HB ) ) 

909 FORMAT! 5H I , 6X , 5! 1 1 X . THA , 10X , 1HB ) ) 

910 FORMAT! 13, Ell. 4, 5! lX,2Eli.4) ) 

911 FORMAT! I 3 , 1 1 X,5 t IX , 2E1 1 .4) ) 

920 FORMAT { 1H » /// * 5 IX , 29HHARM0NIC ANALYSIS, POLAR FORM) 
END 
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SUBROUTINE BLOB 


C 

C 

C 

C THIRD PROGRAM I N BLADE LOADS SEQUENCE 

C SOLUTION OF EQUATIONS BY ITERATION 

C 

DIMENSION US AVE ( 360) ,00(10,36) ,CU1 ( 10 ,36) ,SIGMA(360) 

DIME NS ION UNKWN ( 360 ) , SV3( 360 ) , RBL ( 10) ,FORCX( 10, 36) ,FURC Z ( 10 ,36) 
DIMENSION £ HOME (10,36), HOOT ( 10,36 ) » PH I ( 10 , 36) » THET ( 10, 36 ) »B IC 10) 
DIMENSION BET( 10) , SAVE! 360) ,WBR( 10,36) ,EL(1Q,36) 

C 

COMMON /CIR/PI ,TwOPI ,DIS 
COMMON / 10/ IN, MOOT , I T7 , I TS 

COMMON /Al/ NBL,NB,NR,NW,WCV,NIR?,MAXMO,NI T L,NlT2,NI T3 
l ,CPCMG,IT3 

COMMON /B3/ OS I , I J , KTE ST , AM SNA, AMSNB , EMT Al , EMT31 » ALLl , A L L2 » RO A I R , 
I RA1 ,RBi , ERRSV 

COMMON /8LA03/ CMPl) , AM'NAZ , AMNB2 » IT2 »QN2 DS ,111 * CM PAR 
COMMON /BLD4X3/ AMU, HA, NR 1 

COMMON / BL 03 XI/ ALPT A, AL PTB , CT A , CT B , NRNTNA , NRNT , UNKWM, S V3 , R BL , 

1 FORC l f EMOMiE » HDU T , P HI ,TH£T,BI ,BE T , SAVE , WAR , EL »FORCX 
C 

NANR=NA*NR 
NRNA = NR* NA 

3396- IF l IT3.NE. 1 ) GO TO 370 
3398 DU 3397 I = l , NANR 
3397 SV3 ( I > =0. 0 
370 IF (KTEST) 3 73 ,373,372 
373 DO 3333 M= 1 , NR N A 
3333 SIGMA(M)=0. 

372 IF (KTEST) 20,20,2 
2 REWIND I T 7 

REWIND ITS 
C 

C DEFINE NECESSARY CONSTANTS 

C 

20 CN0TP=1./TW0PI 

fna=na 

PI02=PI *.6 
GN2DS=0.5/QSI 
A MN A 2= AM SN A* AMSNA*DS I * D S 1 
A MNB 2= AM S N B * AM S N B * D S I *DS I 
I Tl=0 
I T2= 1 
C 

C TEST ON OUTER AND MIDDLE ITERATION 

C 

I F ( IT3.NE.1 ) GO TO 50 
40 IF l IT2-D41 ,41 ,50 
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41 


If { KTEST>42,42,43 
43 READ (IT8) ( UNKWNl K ) ,K=1 ,NAwR ) 

IF(KTEST.GT.l) READ! 5, 9011 ( UNKWNI K ) ,K= 1 , NA NR ) 

901 FORMAT ( 8F10.6) 

DO 57 K=L, NA 
M=(K-1)*NR 
DO 57 J=1 t NR 
I=M+J 

57 UNKWNI I )=UNKWN( IJ/BKJ) 

GO TO 50 

42 DO 44 1=1, r J 
44 UNKWNI I )=.01 

50 CALL GAMAS ( AMU , ALP TA, ALPTB , CTA » CT8 , NRN T NA , NR NT » NA ,NR1 » 

1 US AVt » UNKWN , CO , CO 1 , SIGMA , SV3 , RBL » FORCX , FORCZ , EMOME , HOOT » PH I , 

2 THET , 81 , SET , SAVE, W8R, EL ) 

CMPD=0 . 0 

CMPAR=0 .0 
C 

C CHECK FOR CONVERGENCE ON OVERALL ITERATION 

C 

DO 302 INDEX-1 t 1 J 

CMP AR=CMP AR+ ( UNKWNI I NUE X )- S V3I I NDEX) )**2 
CMP D= CMP D+ 1 U NK W N ( INDEX) ) 

302 $ V3 ( INDEX) =UNKWN(I NDEX) 

EPLON=SQRT( CMPAk/CMPD) 

IF (IT3-3) 3028,3026,3021 
C 

C CUTOFF UN OVERALL ITERATION FOR SEVERE DIVERGENCE 

C 

3021 IF( EPLON-ERRSV) 3026 , 302b ,303 
3026 ERRSV=EPLON 
3028 WRI T E I NOUT , 940 ) IT3 ,EPLON 
IF( EPLON-ALL 2)303,303, 3 ID 
3 03 IF { IT3.LT. 0.1 IT3 = 1000 

WRI TE I NOUT , 940) I T3 , EPLQN 
310 I T 3= I T3 + 1 

IF ( IT3.GT.NIT3) IT3=1000 

1 F < IT3.EQ. 1000) WRI TE (NOUT ,993) ( ( WBR I I , J ) , I =1 , N R) , J = 1 , NA ) 

993 FORMAT ( 3X, 3HWRR// , I 8G15 . 5) ) 

IF ( IT3.EQ.1000) CALL H.A.RMN ( NR , N A, DS 1 , W BR , 6 , 0 , 10 , 36) 

CALL BLD3B { AMU , ALPTA , ALPTB ,C TA ., CT8 , NRNTNA , NRNT , NA , NR1 , ' 

1 US AV E , U NKWN , CO , CO 1 , S I GM A , S V 3 , R8 L , FORC X , FURCZ , EMOME ,HOOT , PH I , 

2 THE T ,B I ,8ET , SA VE ,WBR, EL , INDEX) 

RETURN 

940 FORMATUI/) ,30X,5HIT3 =, 15, 30X, 7HERF0R =,E 15.7/ ) 

END 
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noon 


c 


c 


SUBROUTINE GAMAS ( AMU, ALPTA, AlPT B ,CTA , CTB, NRNTNA ,NRNT ,N A, NR 1 , 

1 USAVE » UNKWN »CO »CQ 1 » SI GMA » SV3 ,RBL,FQRCX , FORCZ , EMC ME, HDQT , PH I, 

2 THET, BI , BET, SAVE, WBR,EU 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


.SQ (10 >36) » API 10,36) 

SCTRM A( 10, 36), VB INTI 10,36) 

USAVE (360) ,C0( 10,36) ,COU 10 ,36 ), SIGMA l 360 ) 

UNKWN { 360 ) , SV3 ( 360 ) ,RBL(10) ,FORCX C 1 0, 3 6) ,F0RCZ(10,36) 
EM0ME (10-,36) ,HOQT( 10,36) ,PHI( 10,36) , THET ( 10,3 6) ,B K 10) 
BE T( 1 0) , SAVE (360) ,WBR( 10, 36 ) , EL ( 10 , 36 ) 


COMMON /APSO/ AP , SQ 
COMMON /CIR/PI >TW0P1 ,01S 
COMMON / 1 0 / I N , NOU T»IT7,IT8 

COMMON / A1 / N8L ,NB, NR, NW , NCV , NR2 , MAXMO, N I T 1 , N I T2 ,N I T3 
1 ,CPQMG,IT3 

COMMON / 63/ DS I , I J , KTEST , AMSNA , AMSNB , EMTA 1 , EMTB 1 , ALL1 , A LL2 , RGAI R , 
1 RA1 , RBI , ERRSV 

COMMON /6LAD3/ CMPD , AMNA2 , AMNB2 , 1 T2 ,0N2US , IT 1 » CM PAR 

COMMON / SGSL S/ S I GL M , WBRLM 

C0MMON/PRNT /NPRNT 

COMMON /VORTEX/ VO I NT 

COMMON / MANV 1 / SCTRM A 

COMMON /MANV 3/ NAIR 


DO LOOPS TO COMPUTE CERTAIN COEFFICIENTS AS FUNCTIONS OF RADIAL 
POSITION AND AZIMUTH WHICH APPEAR IN EXPRESSIONS FOR UNKNOWNS, 


NRi=NR2— 1 
NANR=NA*NR 
N AN B=N A /NB 
50 UO ICO J J = 1 » N AN B 
DO 100 MROT= 1 , NBL 
DU ICO K-l , NB 
J={ JJ+IK-l ) *NANB ) 

JM1=J-1 

JP1=J+1 

IF(JMl) 55,36,60 
55 JM I =NA 
GO TO 63 

60 IF ( JP1-NA) 65,65,62 
62 JP1=1 

65 DU 100 1 M= 1, NR1 
1=1 M+ (MROT-1 ) *NR1 
IF ( I-NR1) 3137, 3137, 3138 
3137 A MU SN- AMSNA 
AMSN2=AMNA2 
emt-emtai 

WBR ( I , J ) = W B A R ( AMU , AL P T A, CT A ) 
GO TO 3139 
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3138 AMUSN=AM$Ni) 

AMSN2=AMNB2 

EMT=EMTB1 

WBR ( I , J ) - wH Aft ( A MU , A L P T B » CT 8 ) 

3139 CONTINUE 

IF (KTES H 6 3, 63, 64 

64 HE AD ( I T 7 ) M SE T , { Si GMA 1 M) , M = 1 , NANR > 

S A BS= ABS l S I OH A ( M S F T } ) 

SAB S— S ABS’* 5 S i GLM 
DO 20 M- 1 , NANR 
IF(M.EU.MSET) 60 TO 20 
SAB SM=A6S( SIoMA(M) ) 

I F ( SAoSH.LT .SABS) GO TO 20 
SIGMA ( M ) -ST GMA l M ) *S 1 GLM/SA8SM 
20 CONTINUE 
63 INDEX- { J-l ) #NR+ I 
73 i N J Ml = ( J Ml — 1 )*NR+I 

IF(KTESr.FfO.O) GO TO 80 
WBR! I , J ) =0 . 

RECOMPUTE DOWN WASH VALUES ACCORDING TO PAGE I 1 1-4, TF IT2=1. 

DO 7 5 M = 1 » NR 
DU 7 5 N = i , N A 
I N0= ( N-l ) *NR+M 

75 WBR { I » J) =WBR { I , J) -B I <M)*SIGMA ( I N D ) *UNKWN{ INC) 

W A6S = ABS ( WBR I I, J) ) 

IFtWABS .LT .WBKLM ) GO TO BO 
WBR { I , J) -WBR ( I , J)*WBRLM/WABS 

COMPUTE U ACCORDING TO PAGE III-3 AND V ACCORDING TO PAGE ITI-4 

80 U = E L ( I » J ) / D S I 

V=HQGT< I , J ) - AMU SN-WBR ( I » J ) +SCTRMAI I , J ) 

SU T U V — S Q R T ( U # U+ V* V ) 

so ( i » j ) = sq tuv 

ARG=0 • 

IF ( SUTUV.NE.O. ) ARG=AT AN2 ( V ,U) 

APH I J = BET ( I ) + TFFT ( l » J ) + ARG 
API I , J) =APHI J 

SUBROUTINE SERIES COMPUTES VALUES OF C L I F T = L I FT COEFFICIENT, 
ASLOP=L I FT CURVE SLOPE, CMOME=MOMENT COEFFICIENT, CDRAG=DRAG 
COEFFICIENT 

IF (NAIR.EU.l) CALL NACA15 l APH I J , CL IFT , CDR AG ,CMOME , A SLOP ,EMT , U ) 
IF (NAIR.EQ.l) GO TO 81 

CALL SERIES (I , J, I , EMT ,U,V,APHIJ, CLIFT, A SLOP , CMQME , CDRAG ) 

C 

81 IF { VBINTU , J) .NE.O.) CALL INTRAT M , J , CL I FT ,CMOME , N A ,DS I , APH I J ) 
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U A P VC = 0* A S L 0 P + V * C L I F T 
CO! I,J)=UAPVC/SUTUV 

COL ( I » J ) = C L I FT * S QT U V +CD ( I , J ) *WBR! I, J ) 

C 

C INITIAL GAMMA VALUES ACCORDING TO FORMULA PAGE MI-9 

C PETERS GAMMAS ARE UNK'WN J INDEX ) IN THIS PROGRAM 

C 

C SKIP FOLLOWING WHEN X T 3= 1 AND USE INPUT FROM BLADE GEO 

95 IF { I T 3— 1 ) ICG ,100,951 
951 IF ( I T 2— 1 ) 97,97, 100 
97 I NOEX = ( J- 1 ) *NR + I 

UNKWN! INDEX) = $QTUV*CL I FT + P l *B U I )*I I THE T ( I , JP 1) -THET ( I, JM1 } ) 
1 *GN2D$+PHI (I, J) ) 

C 

100 CONTINUE 
C 

IFINPRNT .LT .1) GO TO 1000 

WRITE (6,9998) ( (Sw( I , J) ,J = 1 , NA ) , 1 = 1, NR) 

WRITE (6,9997) ( ( AP ( I , J ) , J= 1 »NA.) * I - 1 , NR ) 

C 

IFINPPNT.LT. 1) GO TO 1000 

WRITE. (6, 9999)! (WBR{ I,J) , J= 1 , N A ) , 1 = 1, NR) 

3000 IF(KTEST) 110,110,102 
10 2 REWIND IT7 

IF ( IT3.E0.1 .AND.IT2.GQ, 1 , AND .KTC ST . GT . 0 ) RETURN 
C 

C ENTER ITERATION SCHEME ON GAMMAS 

C 

110 I T 1 = 1 T 1+1 

IF( IT 1-NIT 1) 115,115,360 
115 C S I =-DS I 
C 

C UPDATE VALUES OF GAMMAS ACCORDING TO EG 3 PAGE I 11-5 IN THE 

C FORM SHOWN' ON PAGE I 1 1-5 A 

C 

DO 300 J J= 1 , NANB 
DO 3C0 MROT = 1 , NBL 
DO 300 K= 1 , NB 
J=( JJ + (K-U*NANB) 

DO 300 I M= 1 , NRl 
1= I M+ ( MROT— 1 ) *NR 1 
C 

1NDEX={ J-l) *NR+I 
IF(KTEST) 136,106,107 
107 CONTINUE 

READ { I T 7 ) MSETt(SIGMAlLM) ,LR-=i,NANR) 

S ABS=ABS( S IGMA! MSET) ) 

SAd S = SABS*S I GLM 

DO 21 M=1 , NANR 

IF! M.EQ.MS6T ) GO TO 21 



SABSM=aBS< SIGMA(M) ) 

I F( SABSM.LT .SABS ) GO TO 21 
SIGMA (M)=SIGMA(M)#SIGLM/SABS M 
21 CONTINUE 
106 CONTINUE 

DENQM=1.-B I ( I ) * ( C0( I , J)*SI GMAI INDEX) ) 

IF ( A8S ( DENOM ) -1 • E-06 ) 120,120,125 
120 WRI TE { NDUT ,979) 

GU TO 800 

125 USAVEl INDEX )=UNKWN( INDEX ) 

SUM1 =0. 

DU 150 L M= 1 , NR 

DO 146 LN= 1 , NA 

I ND= { LN-1 ) *NR+LM 

IF( IND- INDEX) 145,146,145 

145 SUM 1 =-b I ( L M ) #S l GMA ( IND) *UNKWN( IND) +SUM1 

146 CONTINUE 
150 CONTINUE 

JM1 = J— 1 

IF(JMl) 155,155,160 
155 JM1=NA 

160 I N J M i = ( J Ml - 1 ) * N R+ I 
165 JPl=J+l 

IF(JPl-NA) 200,200,170 
170 J PI — 1 

200 UNKWN ( INDEX)- CO 1( I , J ) +P I *8 I ( I ) *{ { THET( I , J P 1 ) -THET ( I , JM1 ) ) 40N2DS 
1 + PH I ( I, J) )-C0( I , J)*SUMi 

UNKWNI INDEX) -UNKWN { INDEX ) / DEKCM 
300 CONTINUE 
C 

C END UPDATF OF GAMMAS 

C 

IF( KTEST ) 304 ,304 , 1 13 
113 REWIND IT7 
C 

C CHECK FOR CONVERGENCE ON INNERMOST I TER AT ION 

C 

304 CMP AR=0 • 

CMPD=Q. 

DO 3 50 I NDE X = 1 , I J 
CMPD=CMPD+{ JNKWNI INDEX) )**2 
350 CMPAR-CMPAR.+ (UNKWNI INDEX )-US AVE ( INDEX ) ) **2 
E PL 0 N = S UR T 1 C M P A R /C M p D ) 

W R I T F ( NUU T , 9 4 2 ) I T 1 , EP L UN 
I F ( F P LON- ALL 1 ) 360,360,110 
C 

C CHECK FOR CONVERGENCE ON SECOND LEVEL ITERATION 

C 

360 I r i= 0 

CMP AR=0 . 
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DO 379 INDEX-1, IJ 

379 CMPAR-CMPAR+ (UNKWN ( INDEX )~S AVE( INDEX ) 1**2 
E PLON=SQR T ( C MPAR/C MPD) 

WRITE (NUUT ,941) IT2,EPLUN 
1 F l E PLUN-ALL1 ) 510,500,380 
380 IFIIT2-NIT2) 390,390,500 
390 IT 2= IT 2 + 1 

DO ADO I NDE X=1 , 1 J 
400 SAVE! INDEX »=UNKWNI INDEX) 

00 TO 50 
500 RETURN 

979 FORMAT ( / / 52 X , 1 6HD I VI S I ON bY ZERO//) 

941 FORMAT ( 2 ( / ) ,30 X , 5HIT2 =, 15, 30X, 7HERR0R -,£15.7/1 

942 FORMAT ( 2 ( / ) ,30X,5HI T1 = , I 5 , 30X , 7HERR0R = ,E15.7/) 

9997 FORMAT { 6 HO AP H I J/ < 901 3 . 5) ) 

9998 FORMAT (6riOSUTUV/{ 7 013.5 ) ) 

9999 FORMAT l / 1H0, 3HWBR/1 9G13. 5) ) 

END 
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5 Ui3 R 0 J T I Me 13 to 33 { A MU , A L P T A , A L P T B , C T A , CT 3 N R N TN A , NRNT , N A , MR i , 

1 US AVF , UimRW N , CO , CO 1 , S I GMA , S V3 , R 3L , FO KC X , FURCZ , EKO HE , HOOT , PH I , 

2 THLT,Bl ,BET ,SAVE, W.BR, EL, INDEX) 


DIMENSION SO (10 ,36 } , API 10,36) 

DIME NS I UN SC T RM A { 1 0 , 36) , V B I N T ( 1 0 , 3 6 ) 

DIMENSION USAVE (360) ,CU( 10,36) ,CU1( 10,36) ,S1GMA(360> 
f » I ME NS i ON UN KW N ( 360 } , S V 3 ( 36 0 ) , R BL ( 10 ) » F OR C X ( 10,36) ,F0RCZ( 10,36) 
DIMENSION EMUME ( 10,36) ,HD0T( 10,36) , PH I ( 10 ,3 b) ,THET ( 10 ,36) ,81(10) 
DIMENSION BET ( 10) , SAVE (360) , WbR ( 10,36) ,EL( 10,36) 

COMMON /PUNCH/ NPCH 
COMMON /APSQ/ AP, SO 
COMMON /MANV1 / SCTRMA 
COMMON /MANV 3/ NAIR 
C CM MO N /VUiUEX/ V 3 1 NT 
COMMON /CIR/PI , Tv) OP I ,01 S 
COM MON / 10 /IN, NUUT , I T 7 , I T3 

COMMON / A 1 / N B L , N B , N R , N W , N C V , N R 2 , M A X M 0 , N l T 1 , N l T 2 , N I T 3 
1 , C P 0 MG , I T 3 

COMMON / 83 / OS I , I J » KTES'T , AMSnA , AMSNB , EM TA 1 , EMT8 1 , ALL 1 , A LL2 , RUAI R, 
1 RA1 , RBI , ERRS V 

COMMON / BL AO 3 / CMPi) , AMNA2 » AMN32 , 1 12 » 0N2 D S , I T 1 , CM P AR 


CCMPUTAT ION FOR BLADE LOADS 


WRITE (6,9372 > <UNK«N( INDEX) , INU£X=1, IJ ) 

IF { I I3.LT.b00) GO TO 58 

IF( NPCH.NE • 2 ) GO TO 58 

DO 57 J = 1 » N A 

M=( J-l) *NR 

00 57 1=1, NR 

K=M + I 

57 UNKWN(K) =UNKWN( K)*BI (I ) 

WRITE (3, 90 1 ) ( UNKWN ( I ) , 1=1, IJ) 

901 FORMAT ( 8F1 0 . 6 ) 

58 CONTINUE 

3121 DO 825 1=1, NR 

IE U-NR1)3127, 3127, 3128 

3127 AMUSN=AMSNA 
AMSN2=AMNA2 
EMT=EMTA1 
GO TO 3129 

3128 AMUSN=AMSNB 
AMSN2=AMNB2 
EMT-EMT B 1 

3129 B 02 0 S =0 N2 U S # B I ( 1 ) 

TPIB2=6.*PI*B02DS*BI (I ) 

DO 700 JC= 1 , NA 
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J = JC 

JM1= JC-1 

I F ( JM1 ) 5351 ,535.1 ♦ 545 
5351 .JMX-N.A 
545 IN 0 E X = < J C- 1 ) *N H + I 
INJM1=( JM1-1J*NR+I 
600 U=tL( It JO/ObI 

V = H DO T { I , J C ) - A MU S N - W BR I I , J C I + SC T RM A ( 1 , J } 

SQTUV=SQRT ( U*U+ V*V ) 

SU( I t JO-SQTUV 
ARG=0 . 

IF ( SUTuV.EU.O. ) GO TO 605 
A RG= AT AN2 ( V » U ) 

A PH 1 J = BET ( I ) +THET ( I , JC ) +ARG 
605 ARC I» JC) = APH I J 

IF ( ITO.EQ.IOOO) GO TO 700 

RECOMPUTE CUEFF ICIENTS FROM SERIES SUBROUTINE 

IF (NAIR.EQ.i) CALL NACA15 < APH I J , CL IFT , C DRAG , CMOME, ASLOP , EMT , U ) 
I F (NAIR.EU. 1 ) GU TO 606 

CALL SERIFS (I , J , 2 , E MT , U , V , A P H I J , C L 1 F T , A SL 3 P , C M 0 M E » C 0 R A 6 ) 

•oCo IF { VBINT-l I , J) .NF.0. 1 CALL I KTRAT ( I , J , CLT FT , CMOME , N A,DS l , APH I J ) 

COMPUTE CAP l FUNCTIONS GIVEN ON PAGE I I i - 8 

CO ( I » JC ) = 2 » * 8 0 ? OS *CMO ME#S 0 T U V 

COMPUTE BLADE LG AOS ACCORDING TO PAGE 1 1 1-7 

EMU ME I 1 , JC)-2.*CMQME*SflTUV*SUT.UV 
FORC 7. 1 I , JC ) = I U*CL I F T+V*CDR AG ) *SQTUV 
FORCX II ,.JC)= <-V*CL IFT+U*CORAG)*$QrUV 
7C0 CONTINUE 

IF { I T3.EU. 1000) GO TO 825 

CORRECT BLADE LOADS FOR J + l AND J-l TERMS 

DO 800 J = 1 » N A 

JML=J-1 

JP1=J+I 

IF(JMl) 702 1 702 1 70 5 
702 JMl =NA 

GO TO 710 

705 IFC J-NAJ 710,707,707 
7C7 JP1=1 

710 INUEX=( J-l )*NR+I 
I NJ Ml = ( JM1 — 1 ) *NR+ 1 
I N J P 1= I JP i- 1 1 *NR+ 1 
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FORCZ ( I , J) = FORC Z ( I , J ) +8020S* ( UNKWN (I NJP 1 l-UNKWN ( INJ M L ) ) 

FORCZ ( 1 , J )= FORCZ ( I » J )+CO( I , JPl)-CO{ I ,JH1) 

EMOMEU , J) = E MOM E ( 1 , J . 25*BQ2DS*( UNKWNl ItMJP l)-UNKWlMi ) 

800 EMU ME ( I , J ) =E NOME ( I , JJ-TPIB2* .25*QN208*( T HE T ( I * J P 1 )-2.*THET( I, J) 
1 +THET( I , JM1 ) )-TP IB 2/ 16 * *( PHI ( I , JPU-PHI (I ,JM1) ) 

825 CONTINUE 


IF ( IT3.EQ.1000) WRITE (6,98 78 ) ( ( SQ ( I, JO , JC=l ,NA) , 1=1 ,NR ) 

IF ( IT3.EU.1000) WRITE (6,9877) ( ( AP ( I , JC) , JC=1 ,NA ) , 1=1 ,NR ) 

896 CALL BL03C ( AMU , AL PT A , ALPTB ,CTA , CTu, NRNTNA ,NRNT ,K)A , NR 1 , 

1 USA VE , UNKWN ,C0 ,CDI , SI G HA ,SV3 , RBL , FQRCX , FORCZ, EMOME, HDOT , PH I , 

2 THET , BI ,BET , SAVE, WBR, EL, INDEX) 

RETURN 

C 

9872 FORMAT ( 7H GAMMAS/ / ( LOG 12. 4) ) 

9877 FORMAT ( 6 HO APH I J/ ( 18 F 7 . 3 ) ) 

9878 FORMAT ( 6H OSUTUV/ ( 1 8^7 . 3 ) ) 

END 
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SUBROUTINE BLD3C I AMU, ALPT A, ALPTB , CT A, CT 8, NRNTNA ,NRNT,NA ,NR 1, 

1 US AV E» UNKWN ,CO »CO 1 » SI GMA » SV3 ,RBL »FORCX »F ORCZ »E MOME » HOOT , PH I » 

2 THET , B I , BET ,SAVE,WBR, EL, INDEX) 


DIMENSION US AVE ( 360 ) ,C0( 10,36),C0I( 10,36) , SIGMA! 360 ) 

DIMENSION UNKWN (360) , S V3 ( 360 ) , R0U 10 ) , FORCX ( 10 , 36 ) , FORCZt 10,36) 
DIMENSION EMOME ( 10,36) ,HDOT( 10,36) ,PHI (10,36) , THET (10,3 6) ,81(10) 
DIMENSION BET(IO) , SAVE (360 ), WBR ( 10,36), EL( 10,36) 

CUM MO N /CIR/PI , TWOP 1 , 0 1 S 
COMMON / I 0/ I N»NOUT , IT7, ITtf 

COMMON /Ai/ N8 L , NB , MR * N W » NC V » N .+2 , MAX MU, .w i 1 * Nil 2 ,NIT j 
1 , CPOMG, IT 3 

COMMON /B3/ .D'S I , I J , KTLST , AMSNA , AMSN.B , EMT A 1 , EMTB 1 , ALL 1 , ALL 2 , RO AIR , 
1 RA 1 ,RB 1 , ERR SV 

COMMON /6LA03/ CMP 0, AMNA2, AMN32, I T 2, GN2U3 , 1 T l,CMPAR 
COMMON /PRNT /NPRNT 


MODIFY LOADS FOR RESPONSE COMPUTATION ACCORDING TO PAGE IV-8 

ENTRY BLD3C1 
IF ( NPRNT.LT. 2) GO TO 9 
896 WRI TE ( NOUT ,980) 

DO 850 J = 1 , N A 
1 = 1 

WRI TE (NOUT ,8961 ) I , J ,FORCZ( I , J) ,FURCX( I , .J.) , EMOME ( I , J ) 

85 0 WRIT E (NOUT ,981 ) ( I, f ORCZ ( I, J ) ,FORCX< I , J ) , EMOME ( l , J ) , 1 =2 , NP ) 

9 IFUT3.EQ.10P0) GO TO 8 U 
CPSQ=CPUMG*CPOMG 
871 R=RA1 

873 FAC •=ROAIR*CPSQ*k*R*R 
DO 8 7 M= 1 , NR 
FACTR=F AC *RI(M> 

DO 8 7 N= 1 , N A 
T GAR Y= THE T ( M , N ) +86 I ( M ) 

E MUM E ( M , N ) = ( EM U M E < M , N ) - . 5 * ( F OR C Z ( M , N ) *C 0 S l T G A R Y ) + 

1 FORCXI M,M * SI N ( TG ARY) ) ) *FACTR*K*BI( M) 

F 0 R C Z ( M , N ) = F UP C Z ( M , N ) * F AC TK 
87 f OR C X ( M , N ) = F OR CX ( M , N ) *FA CT R 
C 

IF ( IT 3- 10 00) 89 5,89 1,891 

891 WRI TE (NOUT ,983 ) 

. N AO V T 0=N A/ 2+ L 
NROW- 10 
NCUL=36 

W R I T E ( NO U T , 9 9 3 ) ((FURCZd , J) , I = 1 , NR ) , J = 1 , N A ) 

CAL L HaRMN( NR, NA ,QS I , FURCZ , 6 , NM AS, NROW, NCUL ) 

WRI TE ( NOUT ,989) 

WRITE! NCJU T ,993) ( ( FORC X ( I , J ) , I = 1 ,NR ) , J = 1 , NA ) 
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CALL HARMN ( NR »NA ,0 51 ,F0RCX,6 ,NMA3 ,NR0W, NCOL ) 

WRIT t ( NOU T , 9 8 5 ) 

WRI TE INCUT, 9 91) { I E-MCjME ( I , J ) ,1=1 ,NR) , J=1 ,NA > 

993 FORMAT! BG 15, 5) 

call h a rmn i n r,na, ds i , .em gme , 6 , nm a s , nrow , n col j 

895 RETURN 

8961 FORMAT (28X, 2 15, 3E20.7) 

981 FORMAT ( 2 8X , 1 5 , 5X , 3 E20 . 7 ) 

980 FORMAT ( 1H1//./56X, 14HLDADS ON BL AOE//32X , LHI ,4X , 1HJ , 10X , 7HFURCE Z 
L » 13X, 7HFURCE X , 1 3X , 6HM0MENT / ) 

983 FORMAT! 1H1 ,5 5X , 2 OH FORCE IN Z DIRECTION J 

984 FORMAT! IHI , 5 5X , 20HFURCE IN X DIRECTION ) 

985 FORMAT (1 HI , 5 7 X , 18HT URS I UNAL MOMENT } 

END 


132 



noooooooo 


SUB POUT I N.E SERIES! l , J,NCOOE, EMT,U,V, APH.I J , CL I FT , ASLOP ,C HOME ,CDRAG) 
CUP MON /CIR/PT , T9UP l,OIS 

COMMON / A1 / N6L » NB , NR, NW ,NCV ,NR2, MAXMO, N I T1 ,N IT2,Nl T3 
1 iCPOMG * I T3 

COMMON / 10/ IN , NUU Y , I T 7 , I T8 


SUBROUTINE TO COMPUTE CLIFT=LIFT COEFFICIENT 

ASLOP = L I FT CURVE SLOPE 
CMOME = MOMENT COEF F IC I ENT 
CORAG* DR AG COEFFIC I E N T 
FORMULAS TAKEN FROM CURVE FITS BY P.C. 


CLI F T=9. 

ASLOP=Q. 

CMOME=0 . 

CDR AG=G * 

C 

C 

180 NEG=1 

EMI J = EMT*ABSUJ) 

SQT* SORT (l.-EMIJ* EM I J ) 

C 1=1 »— EMI J 
C2=.22689*C1 

97 IF(APHU) LSI, 182, 182 

181 APH I J -— APHT J 
NEG=-l*NEG 

18? IF! A PH: I J-3 .19159261 184,184,183 

183 APH I J=A PHI J-3 .1413926* 2. 

GO TO 97 

184 IF 1 A PHI J— C2 1 1E5, 187, 187 

185 ASLOP-5. 7296/SQT 
CLIFT=ASLQP*APHIJ 

CPR AG=. 006+ . 131 31*APHI J*APHI J 
CMOME= 1 . 43 2 4* A PHI J /SQT 
GU TO 250 

187 1FCAPH1J-. 34906) 189,191,191 
189 CL IFT=. 29269 *Cl+( 1 . 3*F MI J- . 59) *APH I J 
C MOME=C LIFT/ISQT*C . 48868+.9G756*EM I J J ) 
C2=( .1221 7+ . 226 89* EMI J ) *SQ I 
CLIFT =CLIFT/C2 
ASLUP= ( 1.3*EMIJ-.59)/C2 
GO TO 210 

191 I F ( APHIJ-2 .7402 ) 193, 193,195 

193 S=S I N { APHI J ) 

$2=SIN( 2.*APHIJ) 

S3=SIN(3.*APHIJ } 

S4=SIN(4.*APHIJ) 
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CL I F T = ( ,080373*$*1 . .04308*52- . 01 105 9*53 + . 023 12 7*S4 ) /Sy T 
CMOM E= ( - . 0 23 27 *S+ , 1 402 2* S 2- , l 062 2* $ 3+ . j i 01 2 * $4 ) / Su T 
C = C05 ( A Prl I J ) 

C 2-COS ( 2 **APHI J ) 

C3=C0S{ 3.*APHI J ) 

C4— COS (4 .* APHI J ) 

ASLOP=( , 080 3 73*C+2. 086 16*C 2-. 0331 77*C3+. 092508*04) /SOT 
CDRAG= (1.1233- .029894*C- l « 00603*C 2+ .003 1 1 5*C 3- ,09148 7*C4) /SQT 
GO TO 250 

195 IF( APHI J- 3. 0020) 157,199,199 

197 CLlFT=-( .4704+. 10313*APHIJ )/SQT 
A SLOP =-. 103 13 /SQT 
CMOME=~ ( ,4786+,02578*APHl J) /SQT 
GO TO 210 

199 IF{ APHI J-3. 1415926) 200,200,260 

200 CL I FT = ( - 17 .5 50+5. 5864* APHI J) /SQT 
ASL OP =5. 5864/ SQT 

CMOME-(- 12. 5109+3. 9824*APH I J) /SQT 
210 CORAG- ( i.l2 33-,029894*C0S( APHI J I - 1, 0060 3*C0 S( 2. *APHI J) 

1 +, 003 1 1 5*C0S ( 3, * APHI J ) - .09 1 48 7*C0S <4.*APHIJ ) )/SQT 

250 I FINES.) 255,255,260 
255 CL I FT=-CL ! FT 
C NOME =-C HOME 
APHI J=-APH1 J 
260 CONTINUE 
C 

300 CONTINUE 
RETURN 
END 
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SUBROUTINE INTRAT II , J , CL I FT , CMOME , NA, DS I , APHI J } 

DIMENSION NACTI 10) ,NBCT( 10) ,NBSV( 10) » JCYCI 10) 

DIMENSION VBINTI 10,36) 

COMMON / VORI NT/ NAC T ,NBCT , NBSV , CLM AX , DEL CLZ , W.OO.M ,CMST2, JCYCLE tJCYC 
1, APMAX 

COMMON /VORTEX/ VBINT 
IF (NACTI I i.NE.O) GO TO 3 
IF (APHIJ.LT. APMAX) RETURN 
JCYC ( I ) =0 
JC=JC YC LE + J 
DO 1 K = J * JC 
IF (K.GT.NA) GO TU 2 
JC YC ( I ) = JC YC ( I ) + l 
1 VBINTI I,K)=V8INTI l,K)+2. 

2 NAC T ( I ) =1 
NBSV I I) = J 
NBCT I I )=0 

A=( CL I F T— C LMAX) /QELCL2+1* 

IF I ABS I A ) . GT . 1 . 0 ) A=A / AB S( A ) 

PSI=1./WQ0M*ASIN( A) 

3 NBC T( I ) =NBC T ( I ) + 1 

IF INBCT(l) .GT. JCYCII) ) GO TO 6 
PSI JVI-J*DSI 
PSIPSI=PSI JVI-PSl 

CL I FT = CLMAX + DE LCL 2 * ( S I N( WUUM *PS IPS! )- 1. ) 

C MO ME =C MST2 * (1 . -CUS I W0GM#PS I PSI ) ) 

CMOME=( CMOME+CL IFT*. 5) *. 5 
GU TO 5 

fc> JC Y = JCYC ( I ) + MB S V ( I ) — 1 
NBV = NBS V ( I ) 

DO 4 K=NBV » JCY 

4 VBINTI I ,K)=VBINT( I ,K)-2. 

NACT I I ) =0 
5 RETURN 
END 


135 



SUBROUTINE N AC A 1.5 ( AL P H A t C L , C U » C M , CLA,EMT,U) 

REAL PACH 

DATA P I, T WOP 1/3. 141593, 6.28 3185/ 

NS = 1 

MACH =f MT*ABS ( U) 

1 IF ( ALPHA. Gt.O.) GO TO 2 
ALPH A=— AL PH A 

NS=- l*NS 

2 IF (ALPHA.Lfc.Pl) GO Tu 3 
ALPH A = ALPH A- TWO PI 

GO TU 1 

3 ALSU=ALPHA*ALPHA 

IF ( ALPHA. GT.. 17453) GO TO 4 

CL=5.4425665*ALPHA 

CD= .006+1 . 25 78 2 79 * ALSQ 

CM=1 .44674322* ALPHA 

CLA=5. 4425665 

GO TO 10 

4 IF ( ALPHA. LE. 3. 03433) GO TO 5 
C. L = -2 7.0 57 7 4 6 + 8. 6 12 748 1* ALPHA 
C0=1 . 12 630 5 8-. 1 100 65 8* AL SO 
CM=- 13. 846 15 5+4. 40 73682* ALPHA 
CL A= 8. 6 127481 

GO TO 10 

5 ALCU6E=AL$0*ALPHA 
ALFOUR= ALCO 8E*ALPHA 

IF ( ALPHA. GT. ,59305) GO TO 6 

CL = -5. 17552006+74. 3922 5 7 90* ALPH A- 305 . 08426 72 7*ALSQ+ 
1 510 . 057 83 75 2* AL CD 8 E-300 .698981 35*AL F HU R 
C0= 1 . 00 809 82 7-13.21 61 5930* AL PHA+60 . 2433 892 3*ALSG- 
1 10 5 . 339 1 586 3* ALCU8E+66 » 65 706750*ALF0UR 
C M = - 1 . 3 1 2 0 2 0 1 + 1 9 . 4 3 4 1 3 5 6 * A L P H A - 8 2 . 0 3 8 6 3 8 0 * A L S Q+ 

1 139. 6846 800*ALCUBE-83 • 7789094*ALFUUR 
CLA=74. 39225790-6 10. 16 8 5 344*ALPHA+ 15 30. 17351?5*ALSQ 
1 1202. 79392 52*ALCU8E 
GO TO 10 

6 IF < ALPHA. GT .2.79253) GO TO 7 

CL=- 1 . 1042 82 5+ 5 . 91 0332 7* AL PH A-5 .222 3610* ALS Q+ 

1 1. 3844760* ALCUbE-O. 089 524 77*ALFOUR 
C0=-0 .368 9 8575+1. 20 01663* ALPhA+1 .4199886*ALSQ- 
1 1 . 0 9 8 3 5 2 2 * A L C U BE + . 1 6 7 0 9 7 2 2 * A L FOUR 
C M= - . 1 8 1 0 1 3 5 + 1 . 13690 885 * AL P H A- 1 . 1 7 30 46 1 * AL S Q+ 

1 . 301 86757* A LCU BE- .0 1 199924*ALF0UR 
CLA=5. 9103327- 10 . 444722*ALPHA+4. 153428* ALSQ- 
1 .35809903* ALCUBE 
GO TO 10 

7 CL= 190 7 3. 56 35-2 690 5. 6 199* ALP HA+ 14223. 91 49*ALSQ- 
1 3340. 04534* ALCU8E+293 .9323*ALF0UR 

CD= 4324. 41 95-6 164. 22236* ALPH A+3288. 5370* ALS Q- 
1 778. 11679*ALC0BE + 68.89728*ALF0UR 



C A= 20060 .7296-2 7914, 6308#ALPHA+ 1456 0 . 55 2 * A L S U - 
L 3 3 74 . 2 0 « 2 4 * AL CU ft E + 2 9 3 , 1 0 4 0 3 * AL F OUR 
C L A 269 OS « 6 199+28447. 82 96* A L P H A - 1 00 20 . 1 3 60 2* AL S Q+ 
1 1175 , 7 292 * Al CU BE 

10 £6HACH=SQHT ( 1 .-MAGH*MACH) 

CL=CL /£f MACH ' "" 

CD= 00/ EFMACH 

CM=CM/EFMACH 

CL A=CLA/L ; FMACH 

IF {NS.EQ.l ) 00 TO 11 

CL=-CL 

CH=-CM 

ALPHA-- ALPHA 

11 RETURN 
END •. 
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SUBROUTINE 8LD4 
C 

DIMENSION DALPIA(36) »C51X( 20 ,37.) » SIGKJ(20,20) 

DIMENSION ELNTH! 18 ) »EMA$( 18) *EIX( 18) ,EIZ( 18) ,RBL< 10) , 

1 XI NR! 1 8) , OPHI (18) , E IY ( 1 8 ) » EPS ! 18 ) , OLll 13 ) , ZAU 8) , 

2 Y INK ( 18) , OMEGA! 20) ,SIG(20) »BD! 15) 

DIMENSION AVI 18 , 20 ) , AW ( 18 , 20 ) , APH I ( 1 8, 20 ) , A S 1 1 18 ,20 ) , 

1 A THE T( 18,20) ,AT(18,20) ,AMZ ( 18 ,20) , AVY( 13,20) , 

2 AMY! 18,20), AVZ! 18,20), HUOTdO, 36), PHUIO, 36) , 

3 THET (10,36) ,FX! 10,36 ) ,FZ( 10,36 ),EM0( 10,36) 

DIMENSION VDOT! 18,37) ,WDOT( 18,37) ,PHI DT ( 18 , 37 ) ,S IDT ( 18 , 37) , 

1 CSIDTI20, 37) 

DIMENSION FVIIB ,37} ,FW( 18,37 ) , EMOME ( 18 , 37 ) , CS I ( 20, 37) ,C S2DT! 20, 3 7) 

1 ,CH( 12, 18) ,CCP(37) ,SSP! 37) ,GCPS( 18) ,SCPS( 18) ,SUMA( l 8) , HI 18 ) ,XI 19 ) 

2 , RADIS! 18 ), PHIV! 18,37) , SI! 1 8 , 3 7 ) , XC S IDT! 1, 36) , THETA! 18,37) 
DIMENSION CSPH! 18) ,CAPHI (1.8 ) ,CC ( 37 ) , SC! 37 1 , EX ( 37 ) , EXMT C 37 ) , SN( 1 1 ) , 

1 SMLAZ! 18) , SMLAX! 18) , SMLAM! 18) , ALAM! 37) , SFZI37) , SFXI37) ,SFMC37), 

2 FORC (37) 

DIMENSION JM( IO) , JRPll 10) ,HDT(10) , APHI 10) ,ATHI10 ) 


CGMMON/SAD 3/C SI X 
COMMON /PUNCH/ NiPCH 

COMMON /GCGROl / 7HET0 ,CPSD, OT, AC, BC , AKL , DT02, R, GNOCP, CSAL T 
COMMON /CONL 1 / ENR ,P 102 , XROOT , RA8 ,NMPi , NRP1 , NAP1 
COMMON /Al/ NBL , NB , NR , NW ,NC V , NR2,MAXM0, N I T I ,NI T2,NI T3 
1 fCPQMG , l T3 

COMMON / 10/ I N , NOUT , IT7 , 1 T8 

CGMMON / 03/ DSI , 1 J ,KTEST , AMSNA, AMSNB , EMT A 1 , EMT8 l,ALLl ,ALL2, ROA IR , 

1 RA 1 ,RB1, ERRSV 

COM MOM /BLD4X1/ EL NTH, EMAS* EIX , RbL , XINR, OPHI, El Y , EPS, 

1 DLZ, 2A , YINR, OMEGA, PSLR, SIG , AV , AW , APHI , ASI , ATHET, 
2AT , AMZ , A V Y , AMY , AVZ , 00 , RWK , CSAL , NM , XCSIDT, 

3SIGKJ, DAMPC 

COMMON /BLD4X2 / HOOT, PHI , THET , FX ,F Z , EMO ,NMAS»NMOOE, NAPSON ,NRl 1 

COMMON / 3104X3/ AMU , NA , NR i 

COMMON /SADI/ FV , f W , EMOME, CS I , CS2DT , CH, 

LCCP »SSP»CCPS, SC PS , SUMA ,H,X »RADI S, PH IV, SI, THETA, CSPH, CAP HI, CC, SC, EX 
2,EXMT,SN, SMLAZ, SMLAX, SMLAM, ALAM, SFZ, SFX.SFM, FORC, JM,JMP1, HOT, APH, 
3ATH 

COMMON / SVSNR / SNR 
COMMON /GARY/ NGOTO 

COMMON /SAD? / YDOT , WDOT ,PHIDT,S IDT ,CS IDT 
COMMON /MAN V?/ DALP I A , F 3F 
COMMON / UR/PI, T WOP 1 , 0 I S 
C 

C BLADE DYNAMICS PROGRAM 

C 

C SAVE NR AND SET NEW NR FOR BLADE RESPONSE SUBPROGRAM 

C 
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DEFINE CONSTANTS 

NPAGE=1 
NAP1=NA+1 
DO 19 JA= 1 » N AP 1 
DO 19 K= 1 * MAXMO 

19 CSI (K»JA)=CSIX(K»JA) 

SNR=NR 
NR=NR1 
NRP1=NR+1 
R=8D ( 1) 

RA8=BD( 14) 

THE TO = BD ( 2 ) 

XROOT = 8D( 3 ) 

AKL=B0(4) 

AC=BD { 5 ) 

BC=t3D( 6 ) 

1 StC=BO( 7 ) 

NRP T 1-BD ( 8 ) 

CT-BU ( 9 ) 

ALPHT = BDl 10.) 

EMT~B'D( 11) 

AK I =8D( 12) 

CMS w=BD (13) 

INITIALIZE DYNAMIC EFFECTS TO ZERO IF IN FIRST OVERALL ITERATION 

I F { IT 3- 1000) 2941 » 2940,2940 

2941 I F < IT 3-2 >10, 10,20 
10 DU IS JA = 1 , N A P 1 
DU 12 1=1, NM 
VDJTt I * J A ) = 0 . 

WOO T ( I , JA ) =0 . 

P H I D T { I , J A ) = 0 » 

12 S IDT ( I , J A I =0 . 

00 14 K =2, MAXMO 

14 CS IDT IK, JA ) = 0, 

15 CONTINUE 

00 21 J A= 1 , NA 

21 CS 1 DT { 1 , J A ) = XCS IDT ( 1 , J A ) 

20 NMP 1=NM+ 1 
FNA=N A 
ENR= NR 

CNOC P=1 . /(CPCMG*R> 

CAP T=TwOPI /C PO MG 
OT=C APT /NA 
DT 02 = 01* « S 
P I U 2= . 5#P 1 
CSALT = CS AL 
CPSQ=CPUMG*CPDMG 


139 



o o o non non non noon 


SFX { 1 )=0. 

S F Z ( 1 ) - 0 . 

SFM (1 1=0. 

CAPHI ( 1 ) = THE TO+.OPH 1 { 1 ) 

C SPFf { i ) =C0$( OPHlI 1 J ) 

CCPS ( 1 ) = CO S I CAPHI ( 1) ) 

SCPSU) =SINtCAPHl( 1) ) 

H { 1)=DLZ< 1)*CQSI THE TO) 

RAO I S ( i ) =XROOT + EL NT H( 1 ) 

COMPUTE TA8LES OF COSINES AND OFFSET Ul STANCES EXACTLY THE SAME AS 
IN THE NATURAL FREQUENCY PROGRAM 

DO 40 1=2, MM 
I Ml = I -I 


CUMULATIVE PHI ANGLE ALONG BLADE 

CAPHI ( I ) =C APHI ( IM1 > +DPHI ( I I 
CCPS ( I )=COS ( CAPHI { I) ) 

SCPS 1 1 ) = SI N ( CAPHI { i ) ) 

CSPH (I)=CO$< CAPHI < I) -THE TO) 

TOTAL DISTANCE TO RIoHT SIDE Of SECTION FROM CENTER OF ROTATION 


RADISH )=XRUOT + ELNTHI I ) 


AVERAGE MASS USED IN COMPUTATION 


31 SUMA dIMll-.5*( EMASI IM1 )+EMAS( I) > 
H(I ) = Ml I) 

DO 35 J=i, IM1 

H ( I |=HIIH-OLZ< J + U*CCPSU) 

35 RAOISI I )=RAD I SI E) + ELNTH( J) 

40 CONTINUE 

SINE AND COSINE OF OMEGA * T 

OU 45 JA=I ,NAP1 

OMT =CPOMG* ( J A- 1 • ) *DT +P SIR 

CCP< JA)=COS(CMT ) 

45 SSPI JA)=SIN(CMT) 

SUMA (NM)=. 5*EMAS( NM> 

NGOT 0=1 
CALL CUNVL 
CALL GCOUKD 
CALL RSPNj 
GO TO 28.il 
2 940 N(,OTO=2 

CALL RSPNS 
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CALL SHEAR 

IF (NPCH.EQ.l) CALL RSP IL 
2B81 CONTINUE 

DO 80 J=1 f'NAPJ 
00 50 K= 1 t MAXHO 
50 CSIX(KfJ)=CSI(K*J> 

RETURN 

two 



o O u 0 : U O o O 


SUBROUTINE CONVL 

c 

REAL XX 1 1 2 ) » FXX ( 12 ) , FZZ (12 ) ,EMOQ(12) 

C 

DIMENSION SIGKJI 20,20) 

DIMENSION EL NTH (IB) ,EMAS(18) , El X I 18 I , El Z U 8 ) , RBL ( 10 ) , 

1 XINRI 18) , DP HI I 18) »EIY< 131 ,EPS( 18) ,DLZ( 18) »ZA(18) , 

2 YINRU8) , CM EGA (20) , S I G ( 20 > » BD( 1 5 ) 

DIMENSION AVI 18,20) , AW 1 1 8 ,20 ) , APHI (18 ,20 ) » AS I { 18 ,20 ) , 

1 ATHETI 18,20 >, ATI 18 , 20 ) , AMZ ( 1 8 , 20 ) ,AVY( 18,20) , 

2 AMY ( 18,20) , AVZ(18,20) , HDOT { 10 , 36 ) , PH II 10,36), 

3 THETI 10,36) ,FXMD, 36) ,FZ( 10,36) ,EMO( 10 ,36) 

DIMENSION V DOT { 18 , 3 7 ) , W DOT I 18 , 37 ) , PHIDT I 18,37) ,SIDT{ 18,37) , 

1 C SID T! 20,37) 

DIMENSION FVC 18,37) ,FWl 18, 37) ,EMOME ( 18, 3 7) ,CSIC20,37) ,C S20T 120 ,3 7 ) 

1 , CHI 12, 18) , CCP ( 37 ) , SS P ( 37 ) , CCPS 1 18 ) , SC PS( 18),SUMA( 18) , HI 18) , X( 19) 

2 , RADIS! 18) , PHIVi 18,37) ,SU18,3’7) ,XCSIUT( 1 , 36 ) , THETA! 18 ,37) 
DIMENSION CSPHI 18) , CAP HI I 18) , CGI 37) ,SCI 37) ,EXI37) , EXMT ( 37) , SN { 1 1 ) , 

1 SMLAZl 18) , SML AX 1 1 8 ) » S ML AM 1 18) , AL AMI 37 ) , SFZ 1 37 ) , SFX I 37) , SFM ( 3 7) , 

2 FORCI37) 

DIMENSION JMI 10 ) , JMP11 10 ) , HO T 1 10 ) , APHI 1 0) , A THI 10) 


COMMON / BL 04 X 1 / ELNTH, EMAS , EIX , RBL , XINR, DPHI, EIY , EPS, 

1 DLZ, ZA , Y I NR , OMEGA, PSIR, SIG , AV , AW , APHI , AS I , ATHET, 

2 AT , AMZ , A VY , AMY , AVZ , 60 , RWK , CSAL , NM , XCSIDT, 

3SIGKJ , DAMPC 

COM MO N / A 1 / NB L , N B , NR , N W , NC V , NR 2 , MA XMO , N I T 1 , N I T2 , N I T3 
I , CPCMG , 1 T3 

COMMON / I 0 / 1 N , N OU T , I T 7 , I T8 

COMMON / 83 / DS I , I J , K TE $ T , AM SNA , AM SNB , EM T A 1 , E MT8 1 , ALL 1 , A LL2 , ROAi R, 
l RAl , RBi , ERR SV 

COMMON /CONL 1/ ENR , PI02 , XROOT ,RAB , NMPl ,NRPI ,NAP1 

COMMON / BL 04X2/ HDOT , P HI , THET, F X , FZ , EMO , NMA S, NMODE , NAPSON ,NR1I 

COMMON / B L 0 4X3/ AMU , NA , NR l 

COMMON /SADI/ FV , FW , ENOME , C SI ,C S2D T , CH , 

1CCP,SSP,CCPS , S CPS, SUM A, H, X, RAD IS, PH IV, S I, THET A, C SP H, C APHI ,CC, SC, EX 
2,EXMT,SN, SMLAZ, SML AX , SML AM , AL AM , SFZ , SFX , SF M , FORC , JM , JMP 1 , HOT ♦ APH, 

3 ATH 

COMMON /SA 02/ VDOT , WDOT ,PH I DT , S I DT , CS IDT 

COMMON/PRNT /NPRNT 


CUMPUTE LAMBDAS (ARGUEMENTS OF COSINE) 
COMPUTE FUURIER COEFFICIENTS AT EASH AZIMUTH 

R-BDI 1 ) 

I R= 1 

DO 90 I -I ,NM 
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IM1= 1-L 

XII) =XR00T+.5*ELNTH(I) 

IF { IM1) 83,38,83 
83 DO 85 J=l, IM1 
85 XI I )=X( n+EUMTHC J) 

XlNM+1 >-RAB 
C 

C COMPUTE LAMBDA 

C 

IF (X(l).bT.RWK) GO TO 90 

83 IF (X(I).GT.RWK) GO TO 90 

SF2( I 1 = 0. 

SFXU ) -0 • 

SFMI I ) =0. 

1 R= I 

90 CONTINUE 
3122 CONTINUE 
C 

C SMALL A COEFFICIENTS 

C 

RX = R 

XXII) = RWK*RX 
00 95 JA = 1 , NR I 
JAP1X=JA*1 

95 XXI JAP1X)=RBL( JA)*RX 
NR IP 2=NR 1 + 2 
DO 200 JA=1,NA 
UU 11 J X=1 , NR1 
J G = J X + 1 

FXX I JG)=FX I JX , J A) 

FLU JG ) =F Z ( J X , J A ) 

EM30C JG)=EMO( JX, JA) 

11 CONTINUE 
F XX ( 1 >=0.0 
FZZt 1 1=0.0 
E MOO ( 1 ) =0 . 0 
FXX (NR IP 2) =0. 

FZZ I NR1P2 ) = 0 . 

EMJ0INR1P? ) =0 . 

XXI NR 1P2 > =RAB 
NZ=NM+i 

CALL ALINT I X , XX ,FXX , SFX , NZ , NR1 P2 ) 

CALL ALINT ( X , XX , F 1 Z , SF L , NZ , NR LP2 > 

CALL ALINT l X , XX , EMOO , S FM, NZ , NR 1 P2 ) 

r 

o 

C LOADS READY FOR RESPONSE CALCULATION 

C 

DO 150 1=1, iVM 

FV ( I ,JA)=-$FZ{ U*CCPS( I J-SFXI I ) *SCPS( I ) 
FWI I , JA) =SFZm*SCP$U )-SFX( I ) * C C P S I I > 
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150 E MG ME ( I » J A ) = S FM { I ) + Z A ( 1 ) *FV ( I,JA) 

200 CONTINUE 

MAKE FIRST AND LAST ELEMENTS THE SAME 


DO 210 I - 1 , N M 
F V ( I t NAPL ) =F V ( 1,1) 

FW( I , NAP 1 ) =F W ( I ,1) 

EM JME ( I , NAP 1 ) = EMU ME 11,1) 

2 10 SI DTI I , N API ) =S IDT ( I , 1 ) 

IF I I T 3. ED • 1000) GO TO 100 
IF { iMPRNT .LT .2 ) GO TO 1117 
100 WRI TE 16,211 ) 

NR ITEM 6, 90 75) 

WRITE (6,212) 

WRITE ( 6,9875) 

WRITE (6,213) 

WRI TE (6,9875 ) 

WRITE (6,2141 
WRITE (6, 9875 ) 


( ( 


( ( 


F V ( I , JX) , JX— 1 ,N API ) ,r 
F W ( I , JX) , JX = i , N A P 1 ) ,1 
( ( EMC ME ( I ,JX) , JX = 1 , NAPi ) ,1 = 
(( S IDTI I , JX ) , J X= 1, NAP 1 ) ,I ; 


END CONVERSION OF AERODYNAMIC LOADS 

211 FORMAT ( 3 H 0 F V / / ) 

212 FORMAT ( 3H0Fw// ) 

213 FORMAT (6HDEM0ME//) 

214 FORMAT (5H0S1DT//) 

9875 FORMAT ( ( LtH -,10612.4.)! 

1117 CONTINUE 
RETURN 
END 


1 * NM ) 
1 * NM } 
1 » NM ) 
1 , NM ) 
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.SUBROUT IN.E AL I NT { X , R, F , FR , <MM, NU 
D I ME NS I UN X i NM 1 » R ( ML ) , F ( NL ) , F R ( NH > 

NMM 1=NM- 1 

00 2 1=1 ,NM 
2 FR{ I ) =0.0 

1 = 1 
L = 1 

4 XIPl = XU + l) 

RL= R { L ) 

I F ( X I P 1 ,GT . RU GO TO 5 
1 = 1 + 1 
GO TO 4 

7 1 F ( I . GE. NMM1 ) RETURN 
1 = 1 + 1 
XI = XU ) 

XIP1=X(I+1) 

I F C XI P 1 .LT. RLP1) GO TO 10 

F R ( I ) = F R ( I ) + .5*<FL+FL+BS*( X I+RLP 1-RL-RL 1 .)■*( RLP1-XI ) 
L=L+ 1 
LP 1 =L +1 

I F ( L P 1 .GT. NIL ) RETURN 
F L P 1 = F (LPl) 

FL = f { L ) 

KLP1 =R ( LPl ) 

RL = R l L ) 

IF C X I PI .LT. RL.Pl) GO TO 9 
FR ( I ) =FR{ I ) + .5* ( FLP1+FL ) RLP1-RL ) 

GO TO 8 
9 BS= ( FLPl-FL ) / ( RLP 1-RL ) 

FRi 1 ) =FR{ I ) + . 5 * ( F L + F L+ B S * ( X I P 1 -RL ) )*(XIP1-RL) 

GO TO 7 

10 FR( I ) = F R { [ I +.b + (FL+FL+BS*{ XI+XIP 1-RL-RL I }*{ X1P1-XI ) 
GO TO 7 



SUBROUTINE GCOORO 
C 

DIMENSION CSITMPI37) ,CSITXP(37) 

DIMENSION ASSFC 20) ,ASSL<20) ,ASST(20) 

DIMENSION DALPIA136), SIGKJ( 20,20) 

DIMENSION ELNTH ( 18 ) , EMAS (18) , E IX ( 18 I , El Z( 18 ) , RBL UO I , 

1 X INR ( 18 ) * DP HU 18) ,EIY( 18) ,EPS( 18) *DLZ( 18) ,ZA(18> , 

2 YI NR( 18 ) * OMEGA 1 20 ) * S IG ( 20 ) * BDl 15 ) 

DIMENSION AV (18,20) , AW ( 1 8 ,2 0 ) t APHI ( 18 ,20 ) , AS 1 1 18 ,20 ) , 

1 ATHET( 18,20), AT( 18 , 20 ) , AMZ ( 18 , 20 ) , AVY( 18,20) , 

2 AMY (18,20) »AVZ( 18,20) , HOOT ( 10 , 36 ) , PH1( 10,36) , 

3 THET( 10,36) ,FX( 10,36) ,FZ( 10,36) ,EM0( 10,36) 

DIMENSION VDOT( 18,37) ,WDOT( 18 , 37 ) , PHIDT ( 18,37) ,S1DT( 18,37) , 

1 CSIDT(20,37) 

DIMENSION FV( 18, 37) ,FW{ 18, 37) , EMOME ( 18, 3 7) ,C SI (20,37) ,C S2DT (20 , 37 ) 

1 ,CH (12 , 18 ) ,CCP ( 37 ) ,SS P( 37 ) , COPS ( 18),SCPS( 18) , SUMASI 18) 

2 ,RADIS( 18) , PH I V ( 1 8 » 37 ) , SI ( 18,37) ,XCSIDT( 1 ,36) ,THETA( 18 ,37) 
DIMENSION HI 18), XI 19) 

DIMENSION CSPH118) ,CAPHI { 18 ) ,CC ( 37 ) ,SC( 3 7) , EX(37!,EXMT« 37),SN( 11) , 

1 SMLAZ( 18) , SML A X( 18) , SMLAM ( 18) , ALAM( 37) , SFZ(37) , SFX ( 37 ) , SFM( 37 ) , 

2 FJkC (37) 

DIMENSION JM( 1 0 ) , JMP1 ( 1 0 ) , HOT ( 10 ) , APH ( 1 0 ) , ATH( 1 0 ) 

DIMENSION CH 1 3 ( 18) 

C 

C 

COMMON /BL04X1/ ELNTH, EMAS, EIX , RBL , XINR, DPHI, EIY , EPS, 

1 OL It ZA , Y INR » OMEGA, PSIR, S IG , AV , AW , APHI , ASI , ATHET, 

2 AT , AMZ , A VY , AMY , AVZ , BD , RWK , CSAL , NM , XCSIDT, 

3SIGKJ, DAMPC 

COMMON /GC0RD1/ THETO , CP SO , DT , AC , BC , AKL , OTQ 2, R, ONOCP ,CSALT 
COMMON /CGNU / E NR , P 1 02 , XROOT , RAB , NMPl , NRPl , NAP 1 
COMMON /Al/ N8L ,N3 , NR, NW ,NC V,NR2 , MAXMO, NI Ti ,NI T2 ,NI T3 
1 ,C PC MG , I T3 

COMMON /IO/IN,NOUT, I T7,IT8 

COMMON / 83/ OS I, I J , KtEST , AMSNA , AMSNB , EMTA1 , E MTB 1 , ALL1 »ALL2 , RQA1 R , 

1 RA1 ,RB1 , EKRSV 

COMMON /6LD4X2/ HOOT, PHI , THE T,FX ,FZ ,EMO ,NMAS , NMODE , NAPS0N,NR1 1 

COMMON / BL 04 X 3 / AMU , NA , NR 1 

COMMON /SADI/ F V ,F w , EMOME , CS I , CS2 DT , CH, 

1 CCP,SSP,CCPS, SCPS, SUMASfH, X ,RAD I S, PHI V , SI , THET A,CSPH,CAPHI ,CC,SC, 

1 EX, 

2 EXMT, SN,SMLAZ,SMLAX, SMLAM, ALAM,SFZ, SFX ,SFM,FQRC ,JM,JMP1, HOT, APH, 

3 ATH 

COMMON /S AD2 / V DOT , WDOT , PH I DT , S l DT , CS IDT 

COMMON /GARY 2/ XINPT,FINPT 

COMMON/PRNT/NPPNT 

COMMON /MA NV2 / DALP I A , FGF 

COMMON /MAN V 4/ ASSF , AS SL , ASST 

COMMON /,M ANV 6/ ALFDTM, PHIDTM 
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CERTAIN COEFFICIENTS FO COMPUTATION OF TOTAL GENERALIZED FORCES 
AND MOMENTS \ 

JKK= NA/2 
SNTH0=SIN( THETO) 

DO 300 1=1 , NM 

Gl= SUMA S ( I I *CPSQ* (Hi I ) + EPS ( I I *CCPS (1)1 
CHI 1, 1 ) = G1*SCPSI I ) 

CHI 2, I I =SUMAS 1 1 ) * I EPS I I )+H< I )*CSPH( II/CCPSI II I 
CHI 3*1) =-2.#SUMAS( I ) *CP€MG*EPS( I ) 

CHI 4»I)=G1*CCPSII) 

CHI 5, I ) —SUM AS ( I>*H( I)*SINICAPHI< I)-THETO)/CCPSI II 
CHI6,I)=CHI 3,n*CCPSII I 
CHI 3» l)=CH(3, I)*SCPS( l) 

CHI 7, 1) =-CPSQ*SCPS( I )*XTNR( I )*CCPS 1 1 l-SCPS I 1 1* EPS I 1 ) *G1 
CHI 8, II=-XINR(I)-EPSII i *CH< 2,11 

CHI 9, I ) = 2 . #CPOMG*SCPS I I ) *( X INRI M+SUMAS I l)*EPS( 1|*EP$UII 
CHI 10,1 ) = SUKAS I I I *CPSQ*EPS 1 1 >*RADIS (I) 

CHI 12, I )=-2. *CPQMG*( XI NR 1 1 ) + SUMA SI I)*EPSl I)*EPS(I) ) 

CH13 1 1) = IX INRI D+SUMASI I )*RAOISt I ) *RAD I S I I ) )*CPOMG 
300 CHI 11,1 ) =CH I 12,1 I * SC P SI I ) -2 . *CPOMG* SUMAS 1 1 ) *EPS I I ) *H 1 1 ) *SNT HO 
1 /CCPSII) 

IFINPRNT.LT. 2) GO TO 9 
WRITE (6,301) 

WRITE (6,9873) I ( CHI IX , I ) , IX = 1 , 11 ) , 1 = 1, NM) 


COMPUTE SUPERPOSITION INTEGRALS IN EACH KTH MODE 


9 DU 350 K=1 , MAX MO 

S1GCM=SIGIK)*CMEGA(K) 

0MK2 = 0MEGA I K ) IOMEGA I K ) 

TEST = S1G(K)*SIG(M 
IF (TEST.LF.l.) GO TO 5 
0Mt3R = OMEGA IK ) * S QR T { TEST- 1 . ) 

DMT = S l GUM-OM 6R 
0MT2=S IGOM+OMBR 
DO A JA= 1 , NAP 1 
CSITMPI JA) = CSI IK, J A I 
CSITXPI JA)=CSIDT(K,JA) 

T=I JA-1. )*DT 
FURCI JA)=0.0 
EXMTI JA)=EXP(CMT*T ) 

A EX ( J A ) = EXP I GMT 2*T ) 

GO TO 311 

5 OMBR=OMEGA ( K)*SURT ( l.-SIG(K) *SIG(K) ) 
CMT=LMBR*OT 

IF ( NPRNT.LT. 2) GO TO 10 
WRITE I 6, 6001) KfSIGlK) , OMEGA IK) ,DT 
10 SIK DT = S INI OMT ) 


1A7 



oo-o o o o O 


CSKUT ~C0S ( OMT ) / 

6 CMT 2=CMT*UMT / 

OMT 3--0MT 2*UMT 
I F ( OMT -.05 ) 303,307,307 
303 OM T 4= Q M T 2 * OH T2 
OMT 6=UMT4*0M T 2 

ALPHA, BET A, GAMMA CCEFf I Cl ENTS FOR F l LONS RULE OF INTEGR AIQN . 

SEE APPENDIX OF (TOOK ON INTEGRAL TRANSFORMS BY TRANTER 

F I L A = 0 ti T 3 / 2 2 . 5 - { 0 M 14 * 0 M T I / 1 5 7 , 5 + { OMT 6 *0 MT ) / 2 3 6 2 . 5 
FILB=.6S6t 65666 6fc 6 67+0 MT 2/7. 5-0MT4/26. 2 5+QMT6/283. 5 
F l Lb= 1 # 3333 333 33333 3-DMT 2/ 7 . 5+OM T 4/2 10. -OMT 6/ 11340, 

GO TO 308 

307 PILA={UMT2+0MT*$IKDT*CS<0T-2,*SIKQT*SIK0T) /0MT3 

F I LB=2 . * (.OMT* ( 1 , +CSKDT *CSKOT )-2 . *5 IKDT *C SKO T ) /OM T3 
F I LG = 4» SI KDT-OMT*C 5KD T ) /0MT3 

308 ADT = F IL A*DT 
BDT=F ILB*DT 
GUT = F IL G*DT 

DO 310 J A= 1 , NAP 1 
T={ JA-1 . ) *0T 
FQKC ( J A ) = 0 » 

CMT =CMBR*T 
20 CC( JA ) =C GS ( CMT ) 

SCI JA)=SIN(OMT) 

310 EXMT { J A ) =EXP (-S IGGM*T ) 

311 DO 360 JA= I , NA 

THC1=CPGMG*< AC*CCP< JA)-3C*SSP( JA ) } 

TH C 2 =-C P S Q* ( AC* S S P < J A ) + BC*CC P( JA ) } 

COMPUTE TOTAL GENERALIZED FORCES, PAGE I V- 3 » l V- 4 

DO 350 1=1, NM 

QVNEW = ( — CCPS U ) *CSAL +SCPS( I )*DALPIA( JA) ) *SUMAS( I ) *FGF 
QWNEW=( SCPS ( I ) *CSAL+CCPS { I )*DALP IA( JA) ) *SUMASU )*FGF 
QPH I I=-EPS< I )*QVNEW 

QV = CH( I » 1 1 + C H ( 2 , I ) *THC2+CH{ 3, I ) *S IDT ( I , JA) + FV( I , JA ) 

QW-CHI4, I ) +C H( 5 , 1 ) *THC2+CH (6 , t)*SIDT ( I , J A ) + FW ( I , J A ) 

QPHI = CHI 7,1 ) *CH( 8 , 1 ) *THC 2+CH ( 9 , 1 ) * S I U T ( I ,JA)+EMOME< I , JA) 

QPH I =QPHI - CPGMG* {CCP( JA)*ALFUTM + SS P ( J A ) *PH IDTM ) #CH < 8 , 1 ) *CPOMO 
Q SI =CH( 10,1 ) +CH (11,1 ) ♦ THCl+CH (12,1 )*PHI DT ( I , J A ) -CH I 3 , I ) * 

1VD0T { I,J A)— CHI 6, 1 ) *NDOT ( I,JA> 

QTHET = -(~S:SP(JA ) *ALFDTM + CLP ( J A ) *PH.IOT M ) *C HI 3 <1 )*CPQMG 

QV=QV+ QVNEW 

QW-QW+QWNEW 

Q PH I = Q PH I + 0 PH 1 1 

IF(JA-JKK) 312,312,314 

312 J B = J A+JKK 
GO TO 316 
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314 Jti= J A— JKK 

316 THO 1 =C POMG * i AC*CCP ( JB ) -8C* S SP( JB) ) 

TH02*-CPSQ*IAC*SSP( JB)+BC*CCP( JB) ) 

CSVONEW— l — CCPS ( I ) *C S AL+SCPS ( I ) *DALP I A ( 4.8 ) ) *S(JHA.S( I)*FGF 
Q WONE W-( SC PS (I } *CSAL+CCP3( I ) *D ALP I A{ JB) )*SUMAS( I )*F6F 
QPH 1 01=-EPS ( I I *QV(JNE:W 

QVU=CH( 1,1) +CH{2, i )*TH02+CH( 3, 1 1 *S IDT( l, J6)*FVI I , JB) 

QWO=CH(*,I ) +CH( 5 , I) * THU2+CH< 6,1) *S IOTII , JB) +FW{ I , JB) 

QPHIG=CH( 7 , IJ+CH<3, I ) *T H02+CH< 9 , I)*SIDT{ I » J B ) +EMOME l l » J B ) 
QPHIO-QPHiO- CPOMG* (CCP( JB)*ALFDTM + SS P ( J B ) *PH IOTM ) *CH( 8 , I) *CPOMG 
QSIO=CH( 10, I )+CH( ll,I)*THOl+CH( 12,I)*PH1UT< I » 4B ) -CH (3,1)* 

1 VDOT { I » JBI~ CH(6 , U*WOOT( I, JB) 

QTHE T0=-( -SSP( JB) *ALFDTM + CCP(JB) * PH IOTM ) *CH1 3 { I ) *CPOMG 
QVG= QVU+QVONEW 
QwU-QWO+QWGNEW 
QPH I 0=QPHI 0+ U PH 1 01 
318 I F { 1-2) 330, 320,330 

320 61 = AKL/ ELNT H ( 2 ) *S IDT(1,JA) 

G12=AKL/EtMTH( 2 I * S 1 0 T < 1 , JB) 

QV=QV+SCPS(2)*G1 
QW=QW + CC PS ( 2 ) *G1 
QVO=QV+SCPS( 2)*G12 
GWO=QW+CCPS ( 2)*ol2 

GENERALIZED FORCE ACTING IN EACH NORMALIZED MODE 

330 FORCU = QVO* AV ( I , K ) * ASSF ( K ) + ( Q WO* Aw ( I , K ) + Q 5 1 0*AS I ( I,K ) I* 
lASSLl K ) +QPHIO*APHI ( I ,K) *ASST(K) 

FORCO = FORCO + QTHETO*ATHET ( I ,K ) *ASST< K.) 

FORC ( JA ) =F ORC ( JA) +QV* AV ( I , X ) +QW* AW ( I ,K ) +QPH I *APH I < I,K ) 

1+QSI *ASI ( I , K ) +FORCO 
FORC (JA)=FORC(JA) + QT HET *AT FET { I ,K ) 

350 CONTINUE 

DO 355 K J=1 , MAXMO 

355 FORC ( JA ) =FORC 1 J A ) -S I GK. J ( K » KJ )*( CS IDT ( K J , J A ) +C SI DTI K J , JB ) *ASST ( K ) ) 
FQRCC JA)=FORC( JA)*( 1.-. 5* ASST ( K ) » 

360 CONTINUE 

FORC { MAPI ) =FORC 1 1 > 

WRI TE (6,361) 

WRITE(6,9875) ( FORC ( J A ) , J A= 1 , NA ) 

IF ( TEST.GT. 1, ) GO TO 371 
DO 370 JA= 1 , NAP 1 

370 EX( JA)= ( 1 ,/EXMT { JA) )*FORC( JA 1 
JG0=1 

GO TO 379 

COMPUTE SUPERPOSITION INTEGRALS AT EACH AZIMUTH POSITION 
INTEGRALS ON PAGE IV-6 

371 SC(1)~0.0 
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CC(1)=0.0 


COMPUTATION OF REDUCED INTEGRAL PARTS OF SUPPOSITION 
INTEGRALS AT EACH AZIMUTH POSITION FOR OVERDAMPED CASE 

DO 372 JA= 2 » NAP 1 
JAA= J A— 1 

CC( JA)=CC( JA A J + DT02* (F ORC I J A ) * EXMT ( J A I +FQRC ( J AA ) *EXMT ( J AA I ) 
372 SC ( J A) =SC( J AA ) +DTG2* I FORCi JA ) *EX ( JA ) +FORC ( JAA ) *EX« JAA) ) 

OMT 3- l . O/EXMT ( NAP1 ) 

OMT4=1.0/EX( NAPI) 

CK= I .0-0MT4 
SK=1 • 0-OMT3 
S 1= ( 0MT3*CC I NAP 1 ) )/SK 
S2=(0MT4*SCINAP1 ) )/CK 
C CALCULATION OF C SI < K , JA ) , CS I DT ( K, J A) , CS2 DT (K , JA ) 

DO 375 JA= 1 » NAP 1 
CMT3=.5*(CCl JA)+Sl )/ EXMT ( J A) 

OMT 4= . 5 * ( SC I J A ) + S2 J /EX ( J A ) 

CSI { K , J A ) = (OMT 3-OMT 4 ) /OMBR 
C SI U T ( K , J A ) - -S I GOM* CS I ( K , J A ) + OMT 3 +OMT 4 

CS2DT (K » J A ) =FURC< J A ) -OMK2*CSI < K , JA ) -2. *S I GQM*CS IDT { K , J A ) 

CSI (K,JA)=(CSI (K, JA)*FINPT+CSITMP{ JA)*< l.-FINPT) ) 

3 75 CSIDT(KtJA) =(CSIDT ( K , J A) * FI NPT *CS IT X P { J A I *( 1 ,-F INPT ) ) 

GO TO 550 

379 DO 500 J A A = 1 , N A P 1 
CSITMPt JAA) =CSI (K, JAA) 

CS ITXP( JAA) = CSIDT(K, JAA ) 

380 J4 AM= J A A-l 

T = ( JAA- I. >*DT 

GO TO (400, 410,420,430) ,JGO 
400 CSI ( K, JAA) =0. 

CS I DT ( K * J A A ) =0 • 

JGt)=2 
GO TO 500 

410 SAVE=DT02*EX(2) 

CSI NT=S AVE*CC ( 2 ) +DTU2*F0RC ( 1 ) 

SNlNT=SAVE#SC( 2) 

JGU=3 
GO TO 450 

420 J G0= 4 

4 201 CS I NT = EX { J A A )*( ADT *SC ( J AA ) + . 5*BD'T *CC ( JAA ) ) + FORC ( 1)*B0T*.5 
SNINT=EX( JAA )*{-AQT*CC( JAA) + .5*B0T*SC{JAA> > +FORCU )*ADT 

421 J AGU= 1 

DO 425 JA=2 , J A AM 
GO TO ( 422,423) , JAGO 

422 S AV E = GUT#EX ( J A ) 

CslNT=CSINT+CC( J A) ❖SAVE 
SNI NT=SNI NT+SC(JA)*SAVE 
JAG 0=2 
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GO TO 425 

423 SAVE=BDT*EX( JA) 

CSINT=C SINT+CC( JA)*SAVE 
SN I NT-SN I NT +SC ( J A ) *SAVE 
JAG 0=1 

425 CONTINUE 

S AV EC=CS I NT 
SAVES=SNI NT 
GO TO 450 

430 CSINT=DTQ2*( CCIJAA )*EX( JAA)+CC( JAA-1 ) *E X< JA A- 1) ) +$A VEC 
SNI N T=0 T02 *(SC< JAA)*EX(JAA) + S C l JAA-1 ) *E X ( J AA-1 )) +S AV ES 
J G0=3 

450 CSI (K,JAA)=EXMT (JAA ) * ( SC ( J AA ) *CS INT-CC ( JAA)*SNINT) 
CSIOTIKrJAA) =EXMT t JAA ) * ICC ( JAA) *CS I NT +SC ( J AA) *SN INT 1 
CSI <K,JAA)=CSI( K, JAA I /OMBR 
IF ( JAA— NAPL J 457,455,455 

455 SK I N T=E XM T ( J A A ) * ( SC ( J A A ) *C S I NT-CC ( JAA)* SNI NT ) 

CXI NT =EXMT ( J AA > *(CC( JAA ) *CS INT+ SC ( JAA ) * SNI NT) 

C K= 1 . -EXMTI JAA)*CC( JAA) 

SK=EXMT( JAA I *SC( JAA) 

40 S=CK*CK+SK*SK 

Sl = ( SK*CKINT+CK*SKINT)/S 
S2MCK*CKINT-SK*SKINT) /S 
457 CONTINUE 
500 CONTINUE 

COMPUTE QUANTITIES ZETA (CSI) AND ZETA DOT (CSI OUT) FROM 
SUPERPOSITION INTEGRALS 

COMPUTATION OF ZET A , ZE TA-DOT , SEE PAGE IV-6 


C 


C 


C 


C 


DO 520 JAA =1 , NA P 1 

CSI (K, JAA)=CS I (K, JAA)+EXMT( JAA ) * (CC ( JAA ) *S1+SC( JAA)*S2) /OMBR 
CS I OT (K , J A A) =-S IGOM^CS I ( K. , J A A ) +EXMT ( JAA ) #( CC ( J A A) *S 2-SC ( J AA)# SI ) 
l +CSIDU K, JAA ) 

520 CS2 DT (K, JAA )=FORC( J AA )-0MK2*CS I (K, JAA)- 2. *S IG0M*C SI0T( K, JAA) 


DO 540 JAA= 1 , NAP 1 

CSI (K, JAA) = ( CS I (K, JAA) * F INP T +C S ITMP < J AA ) *{ l.-FINPT) ) 

540 CSIUT(K , JAA) =(C$IDT(K, JAA) *FINPT+CS I TXP (JAA )*(1 .-FINPT) ) 


550 CONTINUE 

I F ( NPRNT.LT. 2) RETURN 


WRITE (6,551) 
WR l TE (6,9875) 
WRITE (6,552) 
WRI TE (6 ,9875 ) 
WRITE (6,553) 
WRITE(6,9875) 


( ( CSI (K, JAA) ,K=1,MAXMQ>,JAA=1,NAP1) 
( < C S I D T ( K , J A A ) , K = 1 , M A X M 0 ) , J A A = 1 , N A P 1 ) 
( ( CS20T( K, JAA) , K = 1 j MAXMO) , JAA=1,NAP1) 
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RETURN 

9875 FORMAT < (1H ,09G13 .5 ) ) 

301 FORMAT { 3HQCH// ) 

6001 FORMAT ( 1H0 » 4 HK = , I 3 , 5.X » 8HS IG = ,G10. 3» 2X » 8H0MEGA = »G10.: 

3 8 HOT = » G1Q « 3 ) 

361 FORMAT ( 5H0FGRC// ) 

551 FORMAT (4H0CSI//I 

552 FORMAT <6HUC SIOT//) 

553 FORMAT { 6 HO C S 2 D T / / ) 

END 


♦ 2 X» 
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SUBROUTINE RSPN:S 

C ' 

DIMENSION VO TD T ( 1 8 , 3 7 ) , V X { 1 8 ,3 7 I » WX ( 1 8 ,37 ) 

DIMENSION S I UK J (20,20) 

DIMENSION ELNTH(13 ) »£MAS (13 ) , EIX < 18 ) , El Z ( 18 ) ,RBL( 10 ) , 

1 X I NR ( 1 8) » OP HI { 13 1 , E I Y < 13) ,EPS( 18) ,DLZ( 18) »ZA(18) , 

2 Y I N R ( 1 8 ) , OMEGA { 20 ) » S I G ( 20 ) » BD { 1 5 ) 

DIMENSION A V ( 1 8 ,20) , Aw(13,20) , APH1 ( 18 ,20 )» AS It 18 ,20 ) » 

1 AT HE T ( 18,20) , ATI 18,20) ,AMZ( 18,20) ,AVY( 18,20) , 

2 AMY ( 13 ,20 ) , AVZ < 13 ,20 ) , hDOT (10,36), P H I ( 10,3 6) , 

3 THE T ( 10,36) ,F X(10,36) ,FZ< 10,36) ,EMG( 10 ,36) 

DIMENSION V DOT ( 18, 37) ,WOOT( 18,37) ,PHIDT{ 18, 37) , SID T( 18,3 7) , 

1 CSID T(20,37) 

DIMENSION F V { 18,37) ,Fw( 18,37) ,EMOMt ( 18, 3 7) , CS I 120 , 37 ) , CS2DT ( 20 ,37 ) 

1 ,CH( 12, 18) ,CCP( 37 ) ,SSP( 37) ,CCPS( 18) ,SCPS( 18) ,SUMA( 18) ,H( 18) , X( 19) 

2 , R A D I S ( 1 8 ) , PH I V (1 8 , 3 7 ) , SI (18,3 7), XC SI DT( 1 ,36 ) , THE T A ( 18 ,37) 
DIMENSION CS PH ( 18) , CAPHI ( 18) ,CC( 37) ,SC( 37) , EX (3 7) ,EXMT( 371 ,SN(1I), 

1 SMLAZ(la) , S ML AX (1 3 ) , S ML AM ( 1 8 ) , AL AM ( 37 ) ,SFZ ( 37) ,SFX( 37) ,SFM(37) , 

2 FORC (37) 

DIMENSION J M ( 10) , JMPK 10 ) , HOT! 10 ) , APH< 1 0 ) , A TH ( 10) 


COMMON / 81.04X1/ EL NTH, EMAS , El X , RBL , XI NR, DPHI, El Y , EPS, 

I DLZ » ZA , Y l NR, OMEGA, PSIR, SIG , AV , AW , APHI , ASI , ATHET, 
2AT , AMZ , AV Y , AMY , AVZ , BO , RWK , CSAL , NM , XCSIDT, 

3SIGKJ, DAMPC 

COMMON /GCGRUl / THE TO , CPSQ , DT , AC , 8C , AKL , DT02 » R, ONOCP , CS AL T 
CO M MO N /CON L 1 / ENR , P 1 02 , XROO T , R AB , N MP 1 , NRP 1 , N AP 1 
COMMON / A 1 / N6L , N B , NR , N W , NC V , NR 2 , MAXMO , N I T 1 , N I T 2 , N I T 3 
1 , C P 0 MG , IT3 

COMMON / 1 0 / I N , NOUT , I T 7 , 1 T.8 

COMMON / 83 / US I , IJ ,KTEST , AMSNA, AMSNB, EMT Al, EMTB 1 , ALL 1 , A LL2 , ROA I R , 

1 RA 1 ,RB 1 , ERR SV 

COMMON / BLD4X2/ HDOT, PHI , THE T, F X , FZ , EMO ,NMA S , NMODE , NAPSGN , N R1 l 

COMMON /BL04X3 / AMU, N A, NR 1 

COMMON /SADI/ F V , F W , EMO ME , CSI ,C S2DT ,CH, 

1 CCP, S SP, CCPS , SCPS , SUM A , H, X , RADI S , PH IV, SI , THE TA,CSPH, CAPHI ,CC, SC ,EX 

2 , E XM T , SN , S ML A Z , S ML AX , S M L A M , A L AM , S F Z , S FX , S FM , FORC , J M , J MP 1 , HD T , A PH , 
3ATH 

COMMON / S VSNR/ SNR 
COMMON /GARY/ NGOTO 
COMMON / S A06/ VX,WX 

COMMON /SAU2/ VDOT , WDOT , PHIOT, S I DT, CS IDT 
COM MON/ PR N T/NPRNT 

COMPUTE RESPONSES FROM MODE SHAPES AND ZETAS 

DO 575 JA= 1 , NAP I 
DO 575 1=1, NM 
VX{ I , JA) =0. 
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WX ( I ,JA)=0. 

VDO T ( I , JA) =0. 

WDOT( I, JA)=0. 

PHI VII , JA)=0. 

PH10T ( I » JA ) = 0. 

S I ( I , JA )=0 • 

SID T ( I , JA) =0. 

VDT DT { I » JA ) = 0. 

575 THET A(I,JA)=0. 

kESPJNSE VAR tAJLbo Of INTtKEST, PAGE 1 V - 7 

- ' yj ■ J J A= 1 , i'i »; - ' 

■ ; 1 ? '>*»•:• f = i ,- i i 

DO *8° K= I, MAX MO 

VX( I , JA) =VX ( I, JAM- AVI I fK)*GS I (K, JA) 

WX( I , J A ) = W X ( I,JA) + AW( I ,K)*CSI (K,JA) 

VOOT ( I * J A) -V DOT ( I,JA)+AV< I ♦ K ) *CS IDT ( K, J A ) 

WDOT ( I ,JA)=WDOTl I, JA l + AWU ,K)*CS IDT IK, J A) 
PHIV( I, JA )=PHIV{ I, JA)+APHI( I ,K) *C SI < K , J A ) 

PH l UT ( I , J A ) = PH I OT ( I , J A ) +APH I ( I , K ) *CS IDT ( K , J A » 
SI ( I » JA ) =SI ( I » JA J + ASI I I »K) *C S I ( K , JA) 

S I DT ( I , J A ) = S IDT ( I , J A )+A S I ( I , K) *C S IDT I K, JA ) 

THE T A ( I » J A ) = THE TA( I » J A ) +ATHET ( I ,K)#CSI< K,JA) 
580 CONTINUE 

IFU T3. ED. 1000) GO TO 9 
IFINPRNT.LT. 2) GO TO 3 
9 NAP I = NA 

WRITE ( 6,9983) ( ( VX ( I , JA ) , JA=1 , NAP1 ) , 1= 1 , NM ) 

IFINPRNT.LT. 1) GO TO 12 

WRITE (6,9989) ( ( WX ( 1 , J A ) , J A- 1 , NAP 1 ) » 1= 1 ,NM ) 

WRI TE< 6,9990) ( ( VOOTU , JA) ,JA=1 ,NAP1) ,I=l,NM) 
WRITE (6,9991 )( ( WDQT ( I , J A) , JA = 1 , NAP 1) ,1 =1,NM) 
WRITE (6,9992) ( < PHI V( I , J A) , J A = 1 , NAP1 ) 1 1 -1 » NM) 
WRI TF ( 6, 9993 ) ( ( PH IDT ( I ,JA) ,JA=1 ,NAP1) , I =1 , NM) 
W R I T E ( 6 , 9 9 9 4 ) ( ( S I ( I , J A ) , J A = 1 , N A P 1 ) , I = 1 , N M ) 

WRI TE ( 6,9995 ) ( ( S IDT ( I ,JA) , J A = 1 , NAP1 ) , I - i » NM ) 
WR I TE ( 6, 9996 ) ( ( THETA ( I , J A ) , Jjt - 1 » N A ' 1 ) ,i =1 , h- ) 
12 CONTINUE 

GO TO (3,4) , NGO TO 


CONVERT RESPONSE TC FORM FOR LOADS COMPUTATIONS 

3 DO 610 1=1 , NM 
610 X{ I )=RAOI$( I ) 

M J= 1 

DU 625 1=1 , NR 
RRBL=R*RBL i I ) 
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DO 620 J=M , NM 
MJ = J 

IF I X( J) .LT.RRBL) GO TO 620 
K=J 

IF (K.EG.l) K=K+I 
JHI I ) =K- 1 
JMP1I H=K 
GO TO 625 
620 CONTINUE 
JM( I )=NM-1 
JMP1 I I ) =NM 
625 CONTINUE 

DO 700 JA=I , NA 

THE TC=AC s i t SS P ( J A ) +3C*CC P ( JA } 

THC I-CPOMG #( AC#CCP( JA ) -BC* SSP { J A ) ) 

DO 650 M=1 * NR 
RRBL=R*RBL(M) 

IF! JM(M) ) 63 C » 6 5C, 6 30 
630 I =JM( M) 

IP I = J PP 1(M) 

FCTR= { RRBL-X ( I ) )/{ XI IP1)-X< I ) ) 

DO 640 11=1,2 
THT=THETO+THETC+PHI VI I , J A » 

PH=-T HE T A I I, JA)*CCPS( I ) — SIC I , JA )*$CPS< I ) 

HD=ONOCP*( VDOTI I , J A ) *(, C P $ 1 1 ) -W JOT I I , J A) *SCPS ( I) + ZA < I ) *PHI DT ( I , J A J * 
1CCPSI I ) + 1 Z A ( I ) - H ( I) )*( T H C 1 + C P 0 MG * PH ) ) -A MU*C SALT*CC P I JA) *PH 
GO TO (637,645) , 1 1 
637 HQT(M)=HD*( l.-FCTR) 

ATHIM ) = THT*( l.-FCTR) 

APH(M)=PH*(1.-FCTR) 

I =1 P 1 

640 CONTINUE 

645 H JT I M) -HOT ( M ) +FCT R*HU 
APR I v|)=APH( M)+FCTR*PH 
ATH ( M ) = ATH ( M ) +FCTR*THT 
650 CONTINUE 

DO o60 M = 1 , N R 
HOOT (M, JA) = HL)T I M) 

PHI I M , JA ) =APH{ M ) 

660 THtT I M , JA ) -ATH l N ) 

700 CONTINUE 
4 CONTINUE 

IF! IT3.FQ.iOOO) GO TO 10 
IF! NPRNT.LT. 2) GO TO 6 
10 WRITE 16,24) 

WKITEI6, 29 ) ( IHDOT I I , J) , J= 1 , NA ) ,1 = 1, NR) 

WRITE (6,22) 

WRITE (6, 29) I (PHI I I,J) ,J = 1 ,NA) ,1=1, NR) 

WRITE (6, 23) 
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WRITE(6»29 ) ( ( THETA ( I,J) ,J=1,NA) ,1=1, NR) 

WRITE (6,28) 

WRITE (6,29) { ( THE F( I , J) ,J = 1 ,NA) ,1 =1 ,NR) 

6 WRITE (NUUT ,2935 ) 

WRI TE INOUT ,939) l II ,1 1=1 MAX. MOT 

939 FORMAT! IX, 14HAZ IMUTH (DOWN) /6H MODE ,2X,II, 13< 7X, 12) ) 

DO 5 J J = 1 , NA 

5 WRI TE (MOOT, 938) J J , <CS I U I , J J ) , I 1 = 1 , MAXMO ) 

I F ( IT 3-1COO) 890, 750, 750 
750 CONTINUE 
C 

NAuVT0=18 

NRNRA=37 

WRI TE (6,8995) 

CALL HAR MN < NM» N AP 1 , DSI ,PHIV , 6 , NM, S , NAUVTO , NRNRA) 

WRI TE (6,8991 ) 

CALL HAR MN( NM*NAPl ,DSI , VX ,6 , NKAS »NAOVTU» NRNRA) 

WRITE <6,8992 ) 

CALL HAR MN ( N M , N API ,DSI ,WX , 6 , NM AS » NAUVTO , NRNRA ) 

NAP 1=NA+ 1 
890 NR= SNR 
RETURN 

9988 FORMAT {/1H0,3HVX //(9G13.5)) 

9989 FORMAT (/1H0.3HWX // (9G13.5 ) ) 

9990 FORMA T ( / 1H0 , 5HVDQT //(9G13.5)) 

9991 FORMAT (/1H0, 5HWD0T //(9G13.5) ) 

9992 FORMAT ( /1H0 , 5HPH l V //(9G13.5)) 

9993 FORMAT ( / 1H0, 5HPHIDT//I 9G13.5I) 

9994 FORMAT (/1H0, 5HS I //< 9G13.5) ) 

9995 FORMA T ( /I HO , 5HS 1 UT //(9G13.5)) 

9996 FORMAT { / 1HQ , 5H THET A / / ( 9G13, 5) ) 

9997 FORMAT (6H0VDTDT// (9G13.5) ) 

24 FORMAT ( 5H0H0GT/ /) 

29 FORMAT ( 10 ( 1X,E12.5),/) 

22 FORMAT (4H0PHI //) 

23 FORMAT 1 6HQ THETA././)' 

28 FORMAT ( 5 HO THET//) 

2935 FORMAT ( 2 < / ) ,55 X , 1 OHCS I VALUES ) 

938 FORMAT ( IX, I2,14(F9.4) ) 

900 FORMAT ( IX ,5 E20 * 7 ) 

8991 FORMAT ( /57X , 2 1HF LA T WI SE DISPLACEMENT) 

8992 FORMAT </57X, 2 2 HC HO ROW ISE DISPLACEMENT) 

8993 FORMAT! /57X,17HFLAT WISE VELOCITY ) 

8994 FORMAT ( / 57X , 18HCH0RDWI SE VELOCITY) 

8995 FORMAT ( /57 X* 26 HT OR S IONA L DEFLECTION ANGLE) 

8956 FORMAT! /57X-33HTORS1 ONAL DEFLECTION ANGULAR RATE) 

8997 FORMAT I / 57X , 23HCHQRDW I SE BENDING-SLOPE) 

8998 FORMAT (/57X, 36HCH0RDW ISE BENDING-SLOPE ANGULAR RATE) 

8999 F OR M A T ( / 57 X , 3 5HF L A T W I S E BEND I NG- SLOPE ANGULAR RATE) 

END 
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SUBROUTINE SHEAR. 

C 

DIMENSION CTtlB ,37) ,CMZ(i8 ,371 ,CMY ( 18,3 7 ) ,CVZ 1 18,37 ), CVYC 18,371 
DIMENSION SIGKJ(20,2Q) 

DIMENSION ELNTHI 18 } , EM AS I IB), El XI 18 ) , E l Z ( 18 ) ,RBL( 10), 

1 XI NR ( 1 8) , DPH1 I 18) , E I Y ( 1 3 ) , EPS 1 1 8 ) , DLZ (13 } , ZAI13 I , 

2 YlNRC 18 ) , OMEGA I 201 , SIS( 20) ,0.D( 151 

D I ME NS I ON AV ( 18 , 20) , AW 118,201 , A PHI 1 13*2.0 I , AS i C 13,20) , 

1 ATHETC 18,20) ,*1(18,20) ,ArtZC 18,201 ,AVYi 18 ,20) , 

2 AMY U 8 , 20 ), AVZ ( 18 , 20 ) , HOOT I 10, 3fel , PHI 4 10,36), 

3 THE! ( 10 ,86) ,EXC10,3&) , FZ 110,361* EM® £ 10 , 36.1 

DIMENSION VDOTC 18,37) ,»00T( 18,37) ,PMI DTI 18,37) , S1PT8 18,37) , 

1 GS I OT ( 20,37 I 

0 1 ME MSI ONl f V i 1 8 , 07 J , F W f 1 .8 » 3 7 ) , E MC ME «. 8 ,37), CS l ( 2 O' r 3* 7 l ,C S 2D T ( 2® , 3 7) 

1 ,CHi 12,1«J),CCW 87) , SSP 1 37) ,€€PS(I8) »SL.PM1») ♦SUH-Al.l&l *Hf 18I,X( 191 

2 , RAD 1 S 1 1 8 ) , PH I ¥ « i 8: « 371 , S I 4 1 3 ,37), XC3 TO III, 3 6 ) , T Mi TAJ 1® , 37)1 
DIMENSION CSWf 18) ,C,APH7 MB') ,00(37) ,$€4371 ,EX (37 ) „LX MTt 371 ,SN3 11 ) , 

1 SM'LAZf 18 ),SMLaX( 18 ),SMLAMJ 1 8 ) ,. A-.LAM ( 37),3FZ(37) , SFX( 3?) ,SFMSf371 „ 

2 F 0 R C (37) 

DIMENSION JM( 10),JMP1( 1 0) , HOULO) , APHJ10) , ATH ( 10 ) 


COMMON / BED A XI/ ELNTH, F. MAS , EIX , RBL , XINR, OPHT , EIY , EPS, 

1 DLZ, ZA , Y INR , OMEGA , PSIR, SIG , AV , AW , APHE , AST , ATIHET, 
2AT , AMZ , AV Y , AMY , AVZ , 80 , RWK , CSAL , NM , XCS IDT, 

3 SIGK.J, DAMPC 

COMMON /GC0RD1/ T HETO , CPSQ ,OT, AC, BC , AK.L * 0TQi2,R , ON.QG P »CSALT 
COMMON /C0NL1/ ENR , PI 02 , XROQT,RA®>, NMP1 , N.RPI, NAP 1 

COMMON / 3 3 / OSI , I J , K TE S T , A M&NiA , Alt SN 8 *> EMI Al » E MIB; 1 , AIL Li ,ALL2,«QAIR* 

1 RA 1 , RBI , ERRSV 

COMMON /B L D 4 X 2 / HO 0 T , P H T , T H E T , F X. „F Z , EMO « MIMAS., WKTCff « MAPS ON,- M 1*1 1 
COMMON / BL.D4X3/ AMU, N A, NR 1 
COMMON. /SADI / FV , FW , £M‘Q:M'E» CSl,CS20T 
1C.C.P , SSP ,CC P S » SC PS, SOMA , H' , X *ftA0I S ,*MIV ,S I ,IH£TA,C SP H , CAP HI , C€, SC ,EX 

2 , EX M T , SN * SMIL A I, SMIL AX , SWL AMs, A LAW » SFZ , SFX , SEW .FOWL , JM , JIW I *HDT » A P M , 
BATH 

CmMON SMR 

CEJtMON /bARV/ MiGOTO 

COMMON /SAD* 2/ VOOT.aOOT »PHII Of ,SIOT ,CSI0T 
CCHWJM Ml/ NHL , m » MR , N a , SIC V * MUZ t MA XNOr NI T 1»NIT2,NIT3 
I ,C PC MG, 4 0 

COMMON /lO/IW, MOOT, ITT, ITS 
COMMON /SHEAR l / N 40V TO 

NRNRNA=NR*NA 
DO 200 UA= 1 , NAP 1 
DO 200 I -1 , NM 
DT=0. 

DMY=0 • 

DMZ =0. 
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QVY=0. 

DVZ = 0. 

DO 100 K= 1 » MAXMO 
CSIX=CSI (K, JA) 

QT=DT+AT ( I ,KI*CSIX 
DMZ=DMZ+AMZ( I,K)*CSIX 
DMY=DMY+ AM Y ( I ,K)*CSIX 
DVZ=DVZ+AVZ( I ,K)*CSIX 
100 DVY=OVY + AVY( l,K )*CSIX 
CTi I » JA ) =D T 
CMZ ( I » J A ) =DMZ 
CMY { l » J A ) = DMY 
C VZ ( I » JA) =DVZ 
CVY ( I , JA)=DVY 
200 CONTINUE 
C 

N S A V E-N A 
NAOVT 0=18 
NRNRNA=37 

CALL HARMN ( NM , N A ,0 S I , CT , 1 ,NMAS , NAOVTU , NRNRNA) 
WRITE (6,900) 

WRITE (6,901) ( ( CT( I , J) ,J = 1 ,NA ) , I =1 , NM) 

CALL HARMN ( NM, N A , DS I » CMZ , 2 , NMAS , NAUVTO , NRNRNA ) 
WRITE (6,900) 

WRI TE ( 6, 90 1 ) ( (CMZ( l ,J) ,J=1 ,NA) ,1=1, NM) 

CALL HARMN ( NM ,NA,DS I, CMY, A, N MA S , N AO VTO , NRNRNA ) 
WRITE (6,900) 

WR I T E 1 6 , 90 1 ) ( ( CM Y { I , J ) ,,.) = 1 , N A ) , 1 = 1 , NM ) 

CALL HARMN ( NM , NA , DS I » C VZ, 5 , NM AS , NAOVTO , NRNRNA ) 
WRITE ( 6,900) 

WRITE (6,901 ) ( (CVZl I, J) ,J = 1 ,NA ) , I = 1 , NM) 

CALL HARMN (NM,NA, OSl , CVY ,3 , NMAS ,NAOVTO , NRNRNA) 
WRITE (6,900) 

WRITE (6,901) ( ( C V V ( I , J ) , J= 1 ,N A ) , I = 1 , NM ) 

NA=NSAVE 

RETURN 

900 FORMAT ■(/.//, 56X, 19HRADIAL VS AZIMUTHAL) 

901 FORMAT (///( 9G14.6) ) 

END 
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n o n o o no 


SUBROUTINE RSPZZ 
C 

DIMENSION RC API ID ,ZWK( lit 36) ,VX{ 18,37) ,WX( 18,37) 

DIMENSION KM ( 1 1 ) , KMP 1(11) 

DIMENSION SIGK4I 20, 20) 

DIMENSION ELNTHI 18 ) , EM AS( 1 8 ) , E I X( 18 ) ,£I Z ( 18 ) ,RBU 10) , 

1 XI NR (18) , OPHI ( 18 ) ,EIY< 18) ,EPS( 18),DLZ( 13), ZAT18), 

2 YI NR ( 18) » QM EGA (20) ,SIG{ 20) ,BD( 15) 

DIMENSION AV ( 18 , 20 ) , AW ( 13 » 20 1 , APH I ( 18*20) , A.SI( 18*20) , 

1 A THE T( 18,2 0) ,AT(13 ,20) , AMZ ( 18 ,20 ) , AVY ( 18 , 20 I , 

2 AMY ( 18,20 ) , AVZI 18,20) ,HDOT( 10,36) ,PHI( 10,36) , 

3 THET ( 10,36) ,FX ( 10 ,36) , FZ( 10,36), EM0( 10 , 36 ) 

DIMENSION VDOT ( 18,37) ,W00T( 18,37 » ,PHIDT ( 18 ,37 ) ,S IDT ( 18 ,37 ) , 

1 C$ I DT ( 20,37) 

DIMENSION F VI 18, 37) , FW { 18 ,37 ) , EMOME (18, 37 ) , CS I ( 20, 37 ) ,CS2DT ( 20, 37) 

1 fCH(12,l8),CCP{ 371 , SSP ( 37 ) ,CCPS( 18) ,SCPS(18) , SUMA ( 1 8) , H( 18 ) , X ( 19 ) 

2 ,RADIS (18' 7, PH IV (18, 37) , Si( 18, 37) , XCSIDK 1, 36) , THE TA ( 18,37) 
DIMENSION CSPH( 18) ,CAPHI (18 > ,CC(3 f) , SCI 37 ) , EX (37 > , EXMT (-37 ) , SN ( 1 1 ) , 

1 SMLAZi 18) , SMLA X( 18) , SML AM ( 18) , At AMI 37) , SFZ (37) , SEX ( 3 7 ) , SFM ( 37 ) , 

2 FORC ( 37 ) 

DIMENSION J M ( 10) , JMPl ( 10) ,HDT( t 0) » APH( JO), AT1.M 10 ) 


COMMON /'BLH4X1/ ELNTM , EMAS, EIX , RBL , X I NR., OPHI, E T Y , EPS, 

1 DLZ, ZA , YINR, OMEGA, PSIR, SlG , AV , AW , A PH I , ASI , ATHET, 
2AT , AMZ , AVY , AMY , AVZ , BO , RWK , CSAL , NM , XCSIOT, 

3 SIGKJ, DAMPC 

COMMON /GCUR01/ THETO, CPSy , DT , AC , 8C , AKL , DTO 2, R , ONOCP ,C SALT 

COMMON /CON LI / ENR, PI 02 , XROOT , RAB , NMPi , NRP1 ,NAP1 

COMMON /Al/ NBL ,N8 ,NR,NW ,NC V, NR2 » MAXMO, NI Tl »N I T2 , NI T3 
l ,CPCMG » IT 3 

COMMON / 1 0/ I N ,'N.OUT , I T7 , I T8 

COMMON / B3/ DSI , I J , K TEST , AM SNA , AMSNB , EMTA i , EMTB 1 , AL L 1 , A LL2 , RO AI R, 

1 RA1 »R31 , ERRSV 

COMMON /BLD4X2/ HOOT, PHI , THE T ,F X ,FZ »EMO , NMAS , NMDDE , NAPSGN, NR1 1 

COMMON /8LQ4X3/ AMU, NA , NRI 

COMMON /SADI/ f V,FW , EMOME, CSI ,CS2DT,CH, 

1CCP, SSP, CCPS,SCPS, SUMA, H,X, RADI S »PH I V , S I , THE TA , C SPH , C APHI ,CC,SC,EX 
2, EXMT, SN, S ML AZ, SML AX, SML AM, ALAM, SFZ, SEX, SFM, FORC, JM, JMP I ,HD T, A PH , 
3ATH 

COMMON / SV SNR/ SNR 

COMMON /GARY/ N GO Til 

COMM 0 N /SAD 2/ V D 0 T , W D 0 T , P H I D T , S I D T , C S I D T 

COMMON / S AD 6/ VX,WX 

COMPUTE Z S FOR CASE 12 WAKE AND LOADS RUNS 
4 RE AO ( 5 , 9990 ) (RCAP( I ) , 1 = 1 ,NRP1 ) 
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l)L) oil) 1 = 1, N M 
X( 1 ) -XRQ.JT 
DO 610 J = l, T 
610 X( I ) =X { l ) +ELNTH ( J ) 

M J= 1 

DO 62 6 1 = 1, NRP 1 
RR6L=RCAP(I> 

M=MJ 

DO 620 J=M,NM 
RJ=J 

if I X( J ) . LT . RR6 L > GO TO 620 
K = J 

1 F CK.EO.l) K=K+1 
KM( I ) =K— i 
KMP 1(1) =K 
GO TO 625 
620 CONTINUE 
KM ( I )=NM-1 
KMPl ( I )=NM 
625 CONTINUE 

00 TOO JA = 1 , HA 
DO 650 M=1,NRP1 
RR8 L = RC AP l M ) 

IF(KMIM) ) 630,650,630 

630 I=KM(M) 

I Pl=KMPi ( M ) 

FCTR=(RRl3L-X{ I))/( X( IPU-XU ) ) 

DO 640 11=1,2 
HD=-VX{ I , JA ) 

GO TO <637, 645) , I I 
637 HDT(M)=HU*( l.-FCTR) 

1 = I P 1 

640 CONTINUE 

645 HDT(M)=HDT(M)+FCTR*HD 
650 CONTINUE 

DU 660 M= 1 , NRP 1 
660 Z WK ( M , JA) =HD T ( M ) /R 
700 CONTINUE 

WRI TE (6,24) 

WKITE(3,29) ( ( ZWK ( I , J ) , I =1 , NRP 1 ) , J=1 , N A) 
WRITE (6 ,30 ) { { ZWK ( I , J ) , 1= 1 , NRP 1 ) , J= 1 , N A ) 

3 CONTINUE 

9990 FORMAT IBF10.9) 

24 F URM AT ( 5 HO ZWK ,//) 

29 FORMAT ( 29X,F10.7) 

30 FORMAT ( IX, BE16.7) 

END 
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Machine Compatibility: 

The Blade Loads Program has been run on the University of 
Rochester's IBM 360/65 under MVT Release 18, General Computer 
Corporation's CDC 6600 under Scope 3.2, and NASA-Langley CDC 6600 
under Scope 3.0. The program is standard FORTRAN IV and is also 
WATFIV compatible. 

Recommended CDC 6600 Overlay Statements 
Mainline : 

OVERLAY (BLADES ,0,0) 

PROGRAM BLD34 (INPUT, OUTPUT, BDSTRT , BDGAM, BDSIG , PUNCH, 
TAPE2=BDSTRT , TAPE5=INPUT, TAPE 6=OUT PUT , TAPE7=BDGAM, 
TAPE8=BDSIG, TAPE3=PUNCH) 

2004 CALL OVERLAY ( 6LBLADES ,1,0, 6HRECALL) replaces 
2004 CALL BLD3 

CALL OVERLAY ( 6LBLADES ,2,0, 6HRECALL) replaces the two calls 
to CALL BLD4 

Subroutine BLD3: 

OVERLAY ( BLADES ,1,0); PROGRAM BLD? 

Subroutine BLD 4: 

OVERLAY (BLADES ,2,0); PROGRAM BLD4 

CALL OVERLAY ( 6LBLADES ,2,1, 6HRECALL) replaces CALL CONVL 
CALL OVERLAY ( 6LBLADES ,2,2, 6HRECALL) replaces CALL GCOORD 
CALL OVERLAY ( 6LBLADES ,2,3, 6HRECALL); replaces two CALL RSPNS 
CALL OVERLAY ( 6LBLADES ,2,4, 6HRECALL) replaces CALL SHEAR 
IF(NPCH.EQ.l) CALL OVERLAY (6HBLADES ,2,5, 6HRECALL) 
replaces IF (NPCH.EQ. 1) CALL RSPZZ 

Subroutine CONVL: 

OVERLAY (BLADES, 2, 1) ; PROGRAM CONVL 
Subroutine GCOORD: 

OVERLAY (BLADES ,2,2); PROGRAM GCOORp 
Subroutine RSPNS: 

OVERLAY (BLADES , 2,3); PROGRAM RSPNS 
Subroutine SHEAR: 

OVERLAY (BLADES ,2,4); PROGRAM SHEAR 
Subroutine RSPZZ: 

OVERLAY (BLADES ,2,5); PROGRAM RSPZZ 


161 



NATIONAL AERONAUTICS AND SPACE ADMINISTRATION 
WASHINGTON, D,C, 20546 

OFFICIAL BUSINESS 
PENALTY FOR PRIVATE USE $300 


FIRST CLASS MAIL 


-\p . 


POSTAGE AND FEES PAID 

' National MB 

SPACE ADMINISTRATION 
4*1 



illl#lilllSI! 


Illl®fllli 

' f?< 111 ? 




wpnppm 


NMIWMIMM 






V - 


■ : • ' ■ ;’/•••••' SiS: 

: ' . . ■ ' . 

Jifi I 


iiiiliiiiii 




IHilli! 

ilill 


A 


' . - >? v .*■ ' 




t activities of the United States shall be 


m 


Wi 


'The aeronautical and space activities of the United States shall be 
conducted so as to contribute . . . to the expansion of human knowl- 
edge^ of phenomena in the atmosphere and space. The Administration 

of information concerning its activities and the results thereof.” 

— -National Aeronautics and Space Act of 1958 


NASA SCIENTIFIC AND TECHNICAL PUBLICATIONS 




yj:' 


complete, and a lasting contribution to existing 
knowledge. 

TECHNICAL NOTES: Information less broad 
in scope but nevertheless of importance as a 
contribution to existing knowledge, 

TECHNICAL MEMORANDUMS: 
information receiving limited distribution 

' s§j§pf •; because^ : 

distribution. 

||j||g COmUACTOR REPORTS:- Scientific and 

a N^M, ^ ^ ^ _ _ ( ^ 

contract or grant and considered an important Technology Utilization Reports and 
MMSi contribution to existing kpbwiedge. . . 


derived from or of value to NASA activities. 
Publications include final reports of major 
projects, monographs, data compilations, 

bibliographies. 

TECHNOLOGY UTII^Tl^' 7 ' 





interest in 


applications. Publications include Tech Briefs, 
Technology Utilization Rennrrs and 


Details on the availability of these publications may be obtained from: 

oilier;' I 


tiATlOUm AERONAUTICS AND SPACE ADMINISTRATION 

Washington, D.C. 2054AfliJ 


rife " fe 


